home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-04-12 | 47.2 KB | [TgPj/RBv2] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TgPj] |
| macFileCreator | [RBv2] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b ae 01 00 00 bf ff ff | 0f 41 41 41 41 41 41 41 |........|.AAAAAAA|
|00000010| 41 41 41 41 41 41 41 41 | 01 04 3f 3f 3f 3f 00 00 |AAAAAAAA|..????..|
|00000020| 01 00 01 00 19 4d 79 20 | 43 61 6c 63 75 6c 61 74 |.....My |Calculat|
|00000030| 6f 72 20 31 2e 30 20 4a | 20 28 50 50 43 29 80 80 |or 1.0 J| (PPC)..|
|00000040| 80 01 80 80 80 01 01 00 | 00 03 00 03 31 2e 30 1b |........|....1.0.|
|00000050| 56 65 72 73 69 6f 6e 20 | 31 2e 30 20 4a 20 62 79 |Version |1.0 J by|
|00000060| 20 4a 65 66 66 20 44 69 | 65 74 7a 00 02 49 43 4e | Jeff Di|etz..ICN|
|00000070| 23 80 04 00 01 80 00 00 | 06 60 00 00 18 18 00 00 |#.......|.`......|
|00000080| 60 06 00 00 48 0a 00 00 | 42 22 00 00 40 8a 00 00 |`...H...|B"..@...|
|00000090| 40 22 00 00 40 8a 00 00 | 40 22 00 00 40 8a 00 00 |@"..@...|@"..@...|
|000000a0| 60 26 00 01 98 99 80 06 | 06 60 60 18 01 80 18 12 |`&......|.``.....|
|000000b0| 02 20 28 10 88 88 88 10 | 22 02 28 30 08 80 8c 70 |. (.....|".(0...p|
|000000c0| 22 02 2a 90 08 80 8d b0 | 22 02 2b 98 09 80 99 a6 |".*.....|".+.....|
|000000d0| 26 62 67 69 98 19 9e 1a | 60 06 78 06 80 01 e0 01 |&bgi....|`.x.....|
|000000e0| a0 07 80 00 68 1e 00 00 | 1a 78 00 00 06 e0 00 00 |....h...|.x......|
|000000f0| 01 80 00 00 01 80 00 00 | 07 e0 00 00 1f f8 00 00 |........|........|
|00000100| 7f fe 00 00 7f fe 00 00 | 7f fe 00 00 7f fe 00 00 |........|........|
|00000110| 7f fe 00 00 7f fe 00 00 | 7f fe 00 00 7f fe 00 00 |........|........|
|00000120| 7f fe 00 01 ff ff 80 07 | ff ff e0 1f ff ff f8 1f |........|........|
|00000130| ff ff f8 1f ff ff f8 1f | ff ff f8 3f ff ff fc 7f |........|...?....|
|00000140| ff ff fe ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000150| ff ff ff 7f ff ff fe 1f | ff ff f8 07 ff ff e0 01 |........|........|
|00000160| ff ff 80 00 7f fe 00 00 | 1f f8 00 00 07 e0 00 00 |........|........|
|00000170| 01 80 00 69 63 6c 38 80 | 10 00 00 00 00 00 00 00 |...icl8.|........|
|00000180| 00 00 00 00 00 00 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 ff ff | e1 e1 ff ff 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 ff ff e1 e1 | e1 e1 e1 e1 ff ff 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 ff ff e1 e1 e1 e1 | e1 e1 e1 e1 e1 e1 ff ff |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 ff e3 e3 00 e1 e1 | e1 e1 e1 e1 e1 e3 e5 ff |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 ff e3 e3 e3 e3 00 | e1 e1 e1 e3 e5 e5 e5 ff |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 ff e3 e3 e3 e3 e3 | e3 00 e5 e5 e5 e5 e5 ff |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 ff e3 e3 e3 e3 e3 | e3 e5 e5 e5 e5 e5 e5 ff |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 ff e3 e3 e3 e3 e3 | e3 e3 e5 e5 e5 e5 e5 ff |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 ff e3 e3 e3 e3 e3 | e3 e5 e5 e5 e5 e5 e5 ff |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 ff e3 e3 e3 e3 e3 | e3 e3 e5 e5 e5 e5 e5 ff |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 ff e3 e3 e3 e3 e3 | e3 e5 e5 e5 e5 e5 e5 ff |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| ff ff 2a 2a e3 e3 e3 e3 | e3 e3 e5 e5 e5 e5 0b 0b |..**....|........|
|00000310| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000320| 2a 2a 2a 2a 2a 2a e3 e3 | e3 e5 e5 e5 0b 0b 0b 0b |******..|........|
|00000330| 0b 0b ff ff 00 00 00 00 | 00 00 00 00 ff ff 2a 2a |........|......**|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 54 0b 0b 0b 0b 0b 0b |********|*T......|
|00000350| 0b 0b 0b 0b ff ff 00 00 | 00 00 00 00 ff 54 54 00 |........|.....TT.|
|00000360| 2a 2a 2a 2a 2a 2a 2a 54 | 7f 11 11 00 0b 0b 0b 0b |*******T|........|
|00000370| 0b 0b 0b 11 17 ff 00 00 | 00 00 00 00 ff 54 54 54 |........|.....TTT|
|00000380| 54 00 2a 2a 2a 54 7f 7f | 7f 7f 11 11 11 00 0b 0b |T.***T..|........|
|00000390| 0b 11 17 17 17 ff 00 00 | 00 00 00 00 ff 54 54 54 |........|.....TTT|
|000003a0| 54 54 54 00 7f 7f 7f 7f | 7f 11 11 11 11 11 11 00 |TTT.....|........|
|000003b0| 17 17 17 17 17 ff 00 00 | 00 00 00 ff ff 54 54 54 |........|.....TTT|
|000003c0| 54 54 54 7f 7f 7f 7f 7f | 7f 7f 11 11 11 11 11 17 |TTT.....|........|
|000003d0| 17 17 17 17 17 ff ff 00 | 00 00 ff 00 ff 54 54 54 |........|.....TTT|
|000003e0| 54 54 54 54 7f 7f 7f 7f | 7f 11 11 11 11 11 11 11 |TTTT....|........|
|000003f0| 17 17 17 17 17 ff f9 ff | 00 ff 00 f7 ff 54 54 54 |........|.....TTT|
|00000400| 54 54 54 7f 7f 7f 7f 7f | 7f 7f 11 11 11 11 11 17 |TTT.....|........|
|00000410| 17 17 17 17 17 ff f7 f9 | ff ff f7 f7 ff 54 54 54 |........|.....TTT|
|00000420| 54 54 54 54 7f 7f 7f 7f | 7f 11 11 11 11 11 11 11 |TTTT....|........|
|00000430| 17 17 17 17 17 ff f7 f7 | ff ff f7 00 ff ff 54 54 |........|......TT|
|00000440| 54 54 54 7f 7f 7f 7f 7f | ff ff 11 11 11 11 11 17 |TTT.....|........|
|00000450| 17 17 17 17 ff ff f7 f9 | ff ff f7 f7 f7 00 ff ff |........|........|
|00000460| 54 54 54 54 7f 7f ff ff | f9 f9 ff ff 11 11 11 11 |TTTT....|........|
|00000470| 17 17 ff ff f7 f9 f9 f9 | ff 00 ff ff f7 f7 f7 00 |........|........|
|00000480| ff ff 54 7f ff ff f9 f9 | f9 f9 f7 f6 ff ff 11 17 |..T.....|........|
|00000490| ff ff f7 f9 f9 f9 ff ff | 00 00 00 00 ff ff f7 f7 |........|........|
|000004a0| f7 00 ff ff f9 f9 f9 f7 | f6 f6 f6 f6 f6 f6 ff ff |........|........|
|000004b0| f7 f9 f9 f9 ff ff 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000004c0| f7 f7 f7 00 00 f6 f6 f6 | f6 f6 f6 f6 f6 f7 f7 f9 |........|........|
|000004d0| f9 f9 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| ff ff f7 f7 f7 00 00 f6 | f6 f6 f6 f7 f7 f9 f9 f9 |........|........|
|000004f0| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 ff ff f7 f7 f7 00 | 00 f7 f7 f9 f9 f9 ff ff |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 ff ff f7 f7 | f7 f9 f9 f9 ff ff 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 ff ff | f7 f9 ff ff 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 01 41 04 56 69 65 |........|...A.Vie|
|00000580| 77 07 57 69 6e 64 6f 77 | 31 04 89 07 2e 12 04 4e |w.Window|1......N|
|00000590| 61 6d 65 07 57 69 6e 64 | 6f 77 31 05 46 72 61 6d |ame.Wind|ow1.Fram|
|000005a0| 65 01 36 0c 48 61 73 42 | 61 63 6b 43 6f 6c 6f 72 |e.6.HasB|ackColor|
|000005b0| 05 46 61 6c 73 65 09 42 | 61 63 6b 43 6f 6c 6f 72 |.False.B|ackColor|
|000005c0| 08 31 32 35 36 36 34 36 | 33 08 42 61 63 6b 64 72 |.1256646|3.Backdr|
|000005d0| 6f 70 02 38 38 05 54 69 | 74 6c 65 0d 4d 79 20 43 |op.88.Ti|tle.My C|
|000005e0| 61 6c 63 75 6c 61 74 6f | 72 07 56 69 73 69 62 6c |alculato|r.Visibl|
|000005f0| 65 04 54 72 75 65 08 43 | 6c 6f 73 65 42 6f 78 04 |e.True.C|loseBox.|
|00000600| 54 72 75 65 08 47 72 6f | 77 49 63 6f 6e 05 46 61 |True.Gro|wIcon.Fa|
|00000610| 6c 73 65 08 5a 6f 6f 6d | 49 63 6f 6e 05 46 61 6c |lse.Zoom|Icon.Fal|
|00000620| 73 65 0b 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 09 |se.Ballo|onHelp..|
|00000630| 50 6c 61 63 65 6d 65 6e | 74 01 32 05 57 69 64 74 |Placemen|t.2.Widt|
|00000640| 68 03 31 35 31 06 48 65 | 69 67 68 74 03 32 34 38 |h.151.He|ight.248|
|00000650| 08 4d 69 6e 57 69 64 74 | 68 02 36 34 09 4d 69 6e |.MinWidt|h.64.Min|
|00000660| 48 65 69 67 68 74 02 36 | 34 08 4d 61 78 57 69 64 |Height.6|4.MaxWid|
|00000670| 74 68 05 33 32 30 30 30 | 09 4d 61 78 48 65 69 67 |th.32000|.MaxHeig|
|00000680| 68 74 05 33 32 30 30 30 | 07 00 07 57 69 6e 64 6f |ht.32000|...Windo|
|00000690| 77 31 82 02 06 41 70 70 | 6c 65 74 00 05 11 6f 70 |w1...App|let...op|
|000006a0| 65 72 61 6e 64 20 61 73 | 20 73 74 72 69 6e 67 00 |erand as| string.|
|000006b0| 12 6f 70 65 72 61 74 6f | 72 20 61 73 20 73 74 72 |.operato|r as str|
|000006c0| 69 6e 67 00 0f 74 6f 74 | 61 6c 20 61 73 20 64 6f |ing..tot|al as do|
|000006d0| 75 62 6c 65 00 18 63 75 | 72 72 65 6e 74 6c 79 44 |uble..cu|rrentlyD|
|000006e0| 6f 77 6e 20 61 73 20 62 | 6f 6f 6c 65 61 6e 00 1a |own as b|oolean..|
|000006f0| 73 65 63 6f 6e 64 46 75 | 6e 63 74 69 6f 6e 73 20 |secondFu|nctions |
|00000700| 61 73 20 62 6f 6f 6c 65 | 61 6e 00 06 0d 4e 75 6d |as boole|an...Num|
|00000710| 62 65 72 43 6c 69 63 6b | 65 64 0d 6b 65 79 20 61 |berClick|ed.key a|
|00000720| 73 20 73 74 72 69 6e 67 | 00 00 01 00 01 00 04 20 |s string|....... |
|00000730| 53 75 62 20 4e 75 6d 62 | 65 72 43 6c 69 63 6b 65 |Sub Numb|erClicke|
|00000740| 64 28 6b 65 79 20 61 73 | 20 73 74 72 69 6e 67 29 |d(key as| string)|
|00000750| 17 6f 70 65 72 61 6e 64 | 20 3d 20 6f 70 65 72 61 |.operand| = opera|
|00000760| 6e 64 20 2b 20 6b 65 79 | 14 44 69 73 70 6c 61 79 |nd + key|.Display|
|00000770| 56 61 6c 75 65 20 6f 70 | 65 72 61 6e 64 07 45 6e |Value op|erand.En|
|00000780| 64 20 53 75 62 0f 4f 70 | 65 72 61 74 6f 72 43 6c |d Sub.Op|eratorCl|
|00000790| 69 63 6b 65 64 0c 6f 70 | 20 61 73 20 73 74 72 69 |icked.op| as stri|
|000007a0| 6e 67 00 00 01 00 01 00 | 0f 21 53 75 62 20 4f 70 |ng......|.!Sub Op|
|000007b0| 65 72 61 74 6f 72 43 6c | 69 63 6b 65 64 28 6f 70 |eratorCl|icked(op|
|000007c0| 20 61 73 20 73 74 72 69 | 6e 67 29 34 69 66 20 6f | as stri|ng)4if o|
|000007d0| 70 20 3d 20 22 2b 22 20 | 6f 72 20 6f 70 20 3d 20 |p = "+" |or op = |
|000007e0| 22 2d 22 20 6f 72 20 6f | 70 20 3d 20 22 2a 22 20 |"-" or o|p = "*" |
|000007f0| 6f 72 20 6f 70 20 3d 20 | 22 2f 22 20 74 68 65 6e |or op = |"/" then|
|00000800| 15 69 66 20 6f 70 65 72 | 61 6e 64 20 3c 3e 20 22 |.if oper|and <> "|
|00000810| 22 20 74 68 65 6e 0d 41 | 70 70 6c 79 4f 70 65 72 |" then.A|pplyOper|
|00000820| 61 74 6f 72 06 65 6e 64 | 20 69 66 0d 6f 70 65 72 |ator.end| if.oper|
|00000830| 61 74 6f 72 20 3d 20 6f | 70 26 65 6c 73 65 69 66 |ator = o|p&elseif|
|00000840| 20 6f 70 20 3c 3e 20 22 | 22 20 61 6e 64 20 6f 70 | op <> "|" and op|
|00000850| 65 72 61 6e 64 20 3c 3e | 20 22 22 20 74 68 65 6e |erand <>| "" then|
|00000860| 0d 6f 70 65 72 61 74 6f | 72 20 3d 20 6f 70 0d 41 |.operato|r = op.A|
|00000870| 70 70 6c 79 4f 70 65 72 | 61 74 6f 72 04 65 6c 73 |pplyOper|ator.els|
|00000880| 65 14 6f 70 65 72 61 6e | 64 20 3d 20 73 74 72 28 |e.operan|d = str(|
|00000890| 74 6f 74 61 6c 29 0d 6f | 70 65 72 61 74 6f 72 20 |total).o|perator |
|000008a0| 3d 20 6f 70 0d 41 70 70 | 6c 79 4f 70 65 72 61 74 |= op.App|lyOperat|
|000008b0| 6f 72 06 65 6e 64 20 69 | 66 07 45 6e 64 20 53 75 |or.end i|f.End Su|
|000008c0| 62 0d 41 70 70 6c 79 4f | 70 65 72 61 74 6f 72 00 |b.ApplyO|perator.|
|000008d0| 00 00 32 08 32 08 3b 13 | 53 75 62 20 41 70 70 6c |..2.2.;.|Sub Appl|
|000008e0| 79 4f 70 65 72 61 74 6f | 72 28 29 0f 64 69 6d 20 |yOperato|r().dim |
|000008f0| 76 20 61 73 20 64 6f 75 | 62 6c 65 10 76 20 3d 20 |v as dou|ble.v = |
|00000900| 76 61 6c 28 6f 70 65 72 | 61 6e 64 29 14 73 65 6c |val(oper|and).sel|
|00000910| 65 63 74 20 63 61 73 65 | 20 6f 70 65 72 61 74 6f |ect case| operato|
|00000920| 72 08 63 61 73 65 20 22 | 2b 22 11 74 6f 74 61 6c |r.case "|+".total|
|00000930| 20 3d 20 74 6f 74 61 6c | 20 2b 20 76 08 63 61 73 | = total| + v.cas|
|00000940| 65 20 22 2d 22 11 74 6f | 74 61 6c 20 3d 20 74 6f |e "-".to|tal = to|
|00000950| 74 61 6c 20 2d 20 76 08 | 63 61 73 65 20 22 2a 22 |tal - v.|case "*"|
|00000960| 11 74 6f 74 61 6c 20 3d | 20 74 6f 74 61 6c 20 2a |.total =| total *|
|00000970| 20 76 08 63 61 73 65 20 | 22 2f 22 94 01 2f 2f 20 | v.case |"/"..// |
|00000980| 69 66 20 76 20 3c 3e 20 | 30 20 74 68 65 6e 20 20 |if v <> |0 then |
|00000990| 20 20 20 20 20 20 20 20 | 20 20 53 68 6f 75 6c 64 | | Should|
|000009a0| 6e 27 74 20 64 69 76 69 | 64 65 20 62 79 20 7a 65 |n't divi|de by ze|
|000009b0| 72 6f 20 62 75 74 20 74 | 68 69 73 20 27 69 66 27 |ro but t|his 'if'|
|000009c0| 20 73 74 61 74 65 6d 65 | 6e 74 20 63 61 75 73 65 | stateme|nt cause|
|000009d0| 73 8f 01 74 6f 74 61 6c | 20 3d 20 74 6f 74 61 6c |s..total| = total|
|000009e0| 20 2f 20 76 20 20 20 20 | 20 20 2f 2f 20 20 20 74 | / v | // t|
|000009f0| 68 65 20 72 65 73 75 6c | 74 20 74 6f 20 62 65 20 |he resul|t to be |
|00000a00| 65 71 75 61 6c 20 74 6f | 20 6f 70 65 72 61 6e 64 |equal to| operand|
|00000a10| 2e 20 57 69 74 68 6f 75 | 74 20 74 68 65 20 27 69 |. Withou|t the 'i|
|00000a20| 66 27 95 01 2f 2f 20 65 | 6e 64 20 69 66 20 20 20 |f'..// e|nd if |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a40| 20 20 20 20 20 74 68 65 | 20 64 69 73 70 6c 61 79 | the| display|
|00000a50| 20 72 65 61 64 73 20 27 | 49 4e 46 27 20 77 68 69 | reads '|INF' whi|
|00000a60| 63 68 20 69 73 20 4f 4b | 20 77 69 74 68 20 6d 65 |ch is OK| with me|
|00000a70| 20 66 6f 72 20 6e 6f 77 | 2e 97 01 20 20 20 20 20 | for now|... |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 2f 2f 20 20 20 49 | | // I|
|00000aa0| 20 73 68 6f 75 6c 64 20 | 72 65 61 6c 6c 79 20 6d | should |really m|
|00000ab0| 61 6b 65 20 74 68 69 73 | 20 61 20 6d 73 67 42 6f |ake this| a msgBo|
|00000ac0| 78 20 6f 72 20 70 75 74 | 20 73 6f 6d 65 74 68 69 |x or put| somethi|
|00000ad0| 6e 67 3f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ng? | |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000af0| 20 20 2f 2f 20 20 20 65 | 6c 73 65 20 69 6e 74 6f | // e|lse into|
|00000b00| 20 74 68 65 20 44 69 73 | 70 6c 61 79 2e 54 65 78 | the Dis|play.Tex|
|00000b10| 74 2e 09 63 61 73 65 20 | 22 a1 46 22 14 74 6f 74 |t..case |".F".tot|
|00000b20| 61 6c 20 3d 20 76 20 2a | 20 31 2e 38 20 2b 20 33 |al = v *| 1.8 + 3|
|00000b30| 32 09 63 61 73 65 20 22 | a1 43 22 16 74 6f 74 61 |2.case "|.C".tota|
|00000b40| 6c 20 3d 20 28 76 20 2d | 20 33 32 29 20 2f 20 31 |l = (v -| 32) / 1|
|00000b50| 2e 38 0a 63 61 73 65 20 | 22 6c 62 73 22 15 74 6f |.8.case |"lbs".to|
|00000b60| 74 61 6c 20 3d 20 76 20 | 2f 20 30 2e 34 35 33 35 |tal = v |/ 0.4535|
|00000b70| 39 32 34 09 63 61 73 65 | 20 22 6b 67 22 15 74 6f |924.case| "kg".to|
|00000b80| 74 61 6c 20 3d 20 76 20 | 2a 20 30 2e 34 35 33 35 |tal = v |* 0.4535|
|00000b90| 39 32 34 09 63 61 73 65 | 20 22 69 6e 22 10 74 6f |924.case| "in".to|
|00000ba0| 74 61 6c 20 3d 20 76 20 | 2f 20 32 2e 35 34 09 63 |tal = v |/ 2.54.c|
|00000bb0| 61 73 65 20 22 63 6d 22 | 10 74 6f 74 61 6c 20 3d |ase "cm"|.total =|
|00000bc0| 20 76 20 2a 20 32 2e 35 | 34 09 63 61 73 65 20 22 | v * 2.5|4.case "|
|00000bd0| 6d 69 22 14 74 6f 74 61 | 6c 20 3d 20 76 20 2f 20 |mi".tota|l = v / |
|00000be0| 31 2e 36 30 39 33 34 34 | 09 63 61 73 65 20 22 6b |1.609344|.case "k|
|00000bf0| 6d 22 14 74 6f 74 61 6c | 20 3d 20 76 20 2a 20 31 |m".total| = v * 1|
|00000c00| 2e 36 30 39 33 34 34 09 | 63 61 73 65 20 22 79 64 |.609344.|case "yd|
|00000c10| 22 12 74 6f 74 61 6c 20 | 3d 20 76 20 2f 20 30 2e |".total |= v / 0.|
|00000c20| 39 31 34 34 08 63 61 73 | 65 20 22 6d 22 12 74 6f |9144.cas|e "m".to|
|00000c30| 74 61 6c 20 3d 20 76 20 | 2a 20 30 2e 39 31 34 34 |tal = v |* 0.9144|
|00000c40| 0a 63 61 73 65 20 22 67 | 61 6c 22 17 74 6f 74 61 |.case "g|al".tota|
|00000c50| 6c 20 3d 20 76 20 2f 20 | 33 2e 37 38 35 34 31 31 |l = v / |3.785411|
|00000c60| 37 38 34 08 63 61 73 65 | 20 22 6c 22 17 74 6f 74 |784.case| "l".tot|
|00000c70| 61 6c 20 3d 20 76 20 2a | 20 33 2e 37 38 35 34 31 |al = v *| 3.78541|
|00000c80| 31 37 38 34 09 63 61 73 | 65 20 22 6f 7a 22 17 74 |1784.cas|e "oz".t|
|00000c90| 6f 74 61 6c 20 3d 20 76 | 20 2f 20 32 38 2e 33 34 |otal = v| / 28.34|
|00000ca0| 39 35 32 33 31 33 08 63 | 61 73 65 20 22 67 22 17 |952313.c|ase "g".|
|00000cb0| 74 6f 74 61 6c 20 3d 20 | 76 20 2a 20 32 38 2e 33 |total = |v * 28.3|
|00000cc0| 34 39 35 32 33 31 33 09 | 63 61 73 65 20 22 6d 32 |4952313.|case "m2|
|00000cd0| 22 10 74 6f 74 61 6c 20 | 3d 20 76 20 2a 20 33 2e |".total |= v * 3.|
|00000ce0| 32 34 09 63 61 73 65 20 | 22 92 d8 22 10 74 6f 74 |24.case |"..".tot|
|00000cf0| 61 6c 20 3d 20 76 20 2f | 20 33 2e 32 34 0c 63 61 |al = v /| 3.24.ca|
|00000d00| 73 65 20 22 6d 32 66 74 | 32 22 16 74 6f 74 61 6c |se "m2ft|2".total|
|00000d10| 20 3d 20 76 20 2f 20 30 | 2e 30 39 32 39 30 33 30 | = v / 0|.0929030|
|00000d20| 34 0c 63 61 73 65 20 22 | 66 74 32 6d 32 22 16 74 |4.case "|ft2m2".t|
|00000d30| 6f 74 61 6c 20 3d 20 76 | 20 2a 20 30 2e 30 39 32 |otal = v| * 0.092|
|00000d40| 39 30 33 30 34 07 63 61 | 73 65 20 22 22 09 74 6f |90304.ca|se "".to|
|00000d50| 74 61 6c 20 3d 20 76 0a | 65 6e 64 20 73 65 6c 65 |tal = v.|end sele|
|00000d60| 63 74 17 44 69 73 70 6c | 61 79 56 61 6c 75 65 20 |ct.Displ|ayValue |
|00000d70| 73 74 72 28 74 6f 74 61 | 6c 29 0c 6f 70 65 72 61 |str(tota|l).opera|
|00000d80| 6e 64 20 3d 20 22 22 0d | 6f 70 65 72 61 74 6f 72 |nd = "".|operator|
|00000d90| 20 3d 20 22 22 07 45 6e | 64 20 53 75 62 0c 44 69 | = "".En|d Sub.Di|
|00000da0| 73 70 6c 61 79 56 61 6c | 75 65 0b 76 20 61 73 20 |splayVal|ue.v as |
|00000db0| 73 74 72 69 6e 67 00 00 | 06 10 06 10 09 1d 53 75 |string..|......Su|
|00000dc0| 62 20 44 69 73 70 6c 61 | 79 56 61 6c 75 65 28 76 |b Displa|yValue(v|
|00000dd0| 20 61 73 20 73 74 72 69 | 6e 67 29 0e 69 66 20 76 | as stri|ng).if v|
|00000de0| 20 3d 20 22 22 20 74 68 | 65 6e 13 44 69 73 70 6c | = "" th|en.Displ|
|00000df0| 61 79 2e 54 65 78 74 20 | 3d 20 22 30 2e 22 1d 65 |ay.Text |= "0.".e|
|00000e00| 6c 73 65 69 66 20 69 6e | 73 74 72 28 76 2c 20 22 |lseif in|str(v, "|
|00000e10| 2e 22 29 20 3d 20 30 20 | 74 68 65 6e 16 44 69 73 |.") = 0 |then.Dis|
|00000e20| 70 6c 61 79 2e 54 65 78 | 74 20 3d 20 76 20 2b 20 |play.Tex|t = v + |
|00000e30| 22 2e 22 04 65 6c 73 65 | 10 44 69 73 70 6c 61 79 |".".else|.Display|
|00000e40| 2e 54 65 78 74 20 3d 20 | 76 06 65 6e 64 20 69 66 |.Text = |v.end if|
|00000e50| 07 45 6e 64 20 53 75 62 | 09 42 61 63 6b 73 70 61 |.End Sub|.Backspa|
|00000e60| 63 65 00 00 00 01 00 01 | 00 06 0f 53 75 62 20 42 |ce......|...Sub B|
|00000e70| 61 63 6b 73 70 61 63 65 | 28 29 15 69 66 20 6f 70 |ackspace|().if op|
|00000e80| 65 72 61 6e 64 20 3c 3e | 20 22 22 20 74 68 65 6e |erand <>| "" then|
|00000e90| 28 6f 70 65 72 61 6e 64 | 20 3d 20 6c 65 66 74 28 |(operand| = left(|
|00000ea0| 6f 70 65 72 61 6e 64 2c | 20 6c 65 6e 28 6f 70 65 |operand,| len(ope|
|00000eb0| 72 61 6e 64 29 20 2d 31 | 29 14 44 69 73 70 6c 61 |rand) -1|).Displa|
|00000ec0| 79 56 61 6c 75 65 20 6f | 70 65 72 61 6e 64 06 65 |yValue o|perand.e|
|00000ed0| 6e 64 20 69 66 07 45 6e | 64 20 53 75 62 05 43 6c |nd if.En|d Sub.Cl|
|00000ee0| 65 61 72 00 00 00 04 0d | 04 0d 06 0b 53 75 62 20 |ear.....|....Sub |
|00000ef0| 43 6c 65 61 72 28 29 13 | 44 69 73 70 6c 61 79 2e |Clear().|Display.|
|00000f00| 54 65 78 74 20 3d 20 22 | 30 2e 22 09 74 6f 74 61 |Text = "|0.".tota|
|00000f10| 6c 20 3d 20 30 0c 6f 70 | 65 72 61 6e 64 20 3d 20 |l = 0.op|erand = |
|00000f20| 22 22 0d 6f 70 65 72 61 | 74 6f 72 20 3d 20 22 22 |"".opera|tor = ""|
|00000f30| 07 45 6e 64 20 53 75 62 | 00 06 0b 43 61 6e 63 65 |.End Sub|...Cance|
|00000f40| 6c 43 6c 6f 73 65 01 00 | 01 00 03 21 46 75 6e 63 |lClose..|...!Func|
|00000f50| 74 69 6f 6e 20 43 61 6e | 63 65 6c 43 6c 6f 73 65 |tion Can|celClose|
|00000f60| 28 29 20 41 73 20 42 6f | 6f 6c 65 61 6e 00 0c 45 |() As Bo|olean..E|
|00000f70| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 05 43 6c 6f 73 |nd Funct|ion.Clos|
|00000f80| 65 01 00 01 00 03 0b 53 | 75 62 20 43 6c 6f 73 65 |e......S|ub Close|
|00000f90| 28 29 04 51 75 69 74 07 | 45 6e 64 20 53 75 62 05 |().Quit.|End Sub.|
|00000fa0| 4d 6f 76 65 64 01 00 01 | 00 03 0b 53 75 62 20 4d |Moved...|...Sub M|
|00000fb0| 6f 76 65 64 28 29 00 07 | 45 6e 64 20 53 75 62 0f |oved()..|End Sub.|
|00000fc0| 45 6e 61 62 6c 65 4d 65 | 6e 75 49 74 65 6d 73 01 |EnableMe|nuItems.|
|00000fd0| 15 01 15 03 15 53 75 62 | 20 45 6e 61 62 6c 65 4d |.....Sub| EnableM|
|00000fe0| 65 6e 75 49 74 65 6d 73 | 28 29 24 41 70 70 6c 65 |enuItems|()$Apple|
|00000ff0| 41 62 6f 75 74 41 70 70 | 6c 69 63 61 74 69 6f 6e |AboutApp|lication|
|00001000| 2e 45 6e 61 62 6c 65 64 | 20 3d 20 54 72 75 65 07 |.Enabled| = True.|
|00001010| 45 6e 64 20 53 75 62 07 | 4b 65 79 44 6f 77 6e 01 |End Sub.|KeyDown.|
|00001020| 00 01 00 19 2a 46 75 6e | 63 74 69 6f 6e 20 4b 65 |....*Fun|ction Ke|
|00001030| 79 44 6f 77 6e 28 4b 65 | 79 20 41 73 20 53 74 72 |yDown(Ke|y As Str|
|00001040| 69 6e 67 29 20 41 73 20 | 42 6f 6f 6c 65 61 6e 21 |ing) As |Boolean!|
|00001050| 69 66 20 6b 65 79 20 3e | 3d 20 22 30 22 20 61 6e |if key >|= "0" an|
|00001060| 64 20 6b 65 79 20 3c 3d | 20 22 39 22 20 74 68 65 |d key <=| "9" the|
|00001070| 6e 11 4e 75 6d 62 65 72 | 43 6c 69 63 6b 65 64 20 |n.Number|Clicked |
|00001080| 6b 65 79 15 65 6c 73 65 | 69 66 20 6b 65 79 20 3d |key.else|if key =|
|00001090| 20 22 2e 22 20 74 68 65 | 6e 1f 69 66 20 69 6e 73 | "." the|n.if ins|
|000010a0| 74 72 28 6f 70 65 72 61 | 6e 64 2c 20 22 2e 22 29 |tr(opera|nd, ".")|
|000010b0| 20 3d 20 30 20 74 68 65 | 6e 11 4e 75 6d 62 65 72 | = 0 the|n.Number|
|000010c0| 43 6c 69 63 6b 65 64 20 | 6b 65 79 06 65 6e 64 20 |Clicked |key.end |
|000010d0| 69 66 18 65 6c 73 65 69 | 66 20 61 73 63 28 6b 65 |if.elsei|f asc(ke|
|000010e0| 79 29 20 3d 20 38 20 74 | 68 65 6e 09 42 61 63 6b |y) = 8 t|hen.Back|
|000010f0| 73 70 61 63 65 15 65 6c | 73 65 69 66 20 6b 65 79 |space.el|seif key|
|00001100| 20 3d 20 22 2b 22 20 74 | 68 65 6e 13 4f 70 65 72 | = "+" t|hen.Oper|
|00001110| 61 74 6f 72 43 6c 69 63 | 6b 65 64 20 22 2b 22 15 |atorClic|ked "+".|
|00001120| 65 6c 73 65 69 66 20 6b | 65 79 20 3d 20 22 2d 22 |elseif k|ey = "-"|
|00001130| 20 74 68 65 6e 13 4f 70 | 65 72 61 74 6f 72 43 6c | then.Op|eratorCl|
|00001140| 69 63 6b 65 64 20 22 2d | 22 15 65 6c 73 65 69 66 |icked "-|".elseif|
|00001150| 20 6b 65 79 20 3d 20 22 | 2a 22 20 74 68 65 6e 13 | key = "|*" then.|
|00001160| 4f 70 65 72 61 74 6f 72 | 43 6c 69 63 6b 65 64 20 |Operator|Clicked |
|00001170| 22 2a 22 15 65 6c 73 65 | 69 66 20 6b 65 79 20 3d |"*".else|if key =|
|00001180| 20 22 2f 22 20 74 68 65 | 6e 13 4f 70 65 72 61 74 | "/" the|n.Operat|
|00001190| 6f 72 43 6c 69 63 6b 65 | 64 20 22 2f 22 a6 01 65 |orClicke|d "/"..e|
|000011a0| 6c 73 65 69 66 20 6b 65 | 79 20 3d 20 22 3d 22 20 |lseif ke|y = "=" |
|000011b0| 6f 72 20 61 73 63 28 6b | 65 79 29 20 3d 20 31 33 |or asc(k|ey) = 13|
|000011c0| 20 6f 72 20 61 73 63 28 | 6b 65 79 29 20 3d 20 33 | or asc(|key) = 3|
|000011d0| 20 74 68 65 6e 20 20 20 | 20 2f 2f 20 41 53 43 49 | then | // ASCI|
|000011e0| 49 20 28 31 33 29 20 69 | 73 20 22 72 65 74 75 72 |I (13) i|s "retur|
|000011f0| 6e 22 20 61 6e 64 20 28 | 33 29 20 69 73 20 22 65 |n" and (|3) is "e|
|00001200| 6e 74 65 72 22 8c 01 69 | 66 20 6f 70 65 72 61 74 |nter"..i|f operat|
|00001210| 6f 72 20 3d 20 22 2b 22 | 20 6f 72 20 6f 70 65 72 |or = "+"| or oper|
|00001220| 61 74 6f 72 20 3d 20 22 | 2d 22 20 6f 72 20 6f 70 |ator = "|-" or op|
|00001230| 65 72 61 74 6f 72 20 3d | 20 22 2a 22 20 6f 72 20 |erator =| "*" or |
|00001240| 6f 70 65 72 61 74 6f 72 | 20 3d 20 22 2f 22 20 74 |operator| = "/" t|
|00001250| 68 65 6e 0d 41 70 70 6c | 79 4f 70 65 72 61 74 6f |hen.Appl|yOperato|
|00001260| 72 06 65 6e 64 20 69 66 | 19 65 6c 73 65 69 66 20 |r.end if|.elseif |
|00001270| 61 73 63 28 6b 65 79 29 | 20 3d 20 32 37 20 74 68 |asc(key)| = 27 th|
|00001280| 65 6e 05 43 6c 65 61 72 | 06 65 6e 64 20 69 66 0c |en.Clear|.end if.|
|00001290| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 04 4f 70 65 |End Func|tion.Ope|
|000012a0| 6e 04 2e 04 2e 07 0a 53 | 75 62 20 4f 70 65 6e 28 |n......S|ub Open(|
|000012b0| 29 13 44 69 73 70 6c 61 | 79 2e 54 65 78 74 20 3d |).Displa|y.Text =|
|000012c0| 20 22 30 2e 22 09 74 6f | 74 61 6c 20 3d 20 30 0c | "0.".to|tal = 0.|
|000012d0| 6f 70 65 72 61 6e 64 20 | 3d 20 22 22 98 01 6f 70 |operand |= ""..op|
|000012e0| 65 72 61 74 6f 72 20 3d | 20 22 22 20 20 2f 2f 20 |erator =| "" // |
|000012f0| 20 54 68 65 20 65 78 61 | 6d 70 6c 65 20 63 61 6c | The exa|mple cal|
|00001300| 63 75 6c 61 74 6f 72 20 | 73 65 74 73 20 6f 70 65 |culator |sets ope|
|00001310| 72 61 74 6f 72 20 74 6f | 20 22 2b 22 20 68 65 72 |rator to| "+" her|
|00001320| 65 20 62 75 74 20 49 20 | 63 61 6e 27 74 20 73 65 |e but I |can't se|
|00001330| 65 20 77 68 79 2e 94 01 | 20 20 20 20 20 20 20 20 |e why...| |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2f 2f 20 | | // |
|00001350| 20 20 49 20 68 61 76 65 | 20 73 65 74 20 69 74 20 | I have| set it |
|00001360| 74 6f 20 22 22 20 6a 75 | 73 74 20 6c 69 6b 65 20 |to "" ju|st like |
|00001370| 74 68 65 20 6d 65 74 68 | 6f 64 20 66 6f 72 20 22 |the meth|od for "|
|00001380| 43 6c 65 61 72 22 20 64 | 6f 65 73 2e 07 45 6e 64 |Clear" d|oes..End|
|00001390| 20 53 75 62 01 15 41 70 | 70 6c 65 41 62 6f 75 74 | Sub..Ap|pleAbout|
|000013a0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 02 07 02 07 04 |Applicat|ion.....|
|000013b0| 1a 46 75 6e 63 74 69 6f | 6e 20 41 63 74 69 6f 6e |.Functio|n Action|
|000013c0| 20 41 73 20 42 6f 6f 6c | 65 61 6e 1f 64 69 6d 20 | As Bool|ean.dim |
|000013d0| 6d 79 41 62 6f 75 74 20 | 61 73 20 41 62 6f 75 74 |myAbout |as About|
|000013e0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 1e 6d 79 41 62 |Applicat|ion.myAb|
|000013f0| 6f 75 74 20 3d 20 6e 65 | 77 20 41 62 6f 75 74 41 |out = ne|w AboutA|
|00001400| 70 70 6c 69 63 61 74 69 | 6f 6e 0c 45 6e 64 20 46 |pplicati|on.End F|
|00001410| 75 6e 63 74 69 6f 6e 00 | 0c 07 00 00 b4 01 0a 53 |unction.|.......S|
|00001420| 74 61 74 69 63 54 65 78 | 74 00 00 00 00 00 00 00 |taticTex|t.......|
|00001430| 07 00 00 a4 01 06 43 61 | 6e 76 61 73 00 00 00 00 |......Ca|nvas....|
|00001440| 00 00 00 07 00 00 a4 01 | 06 43 61 6e 76 61 73 00 |........|.Canvas.|
|00001450| 00 00 00 00 00 00 07 00 | 00 a4 01 06 43 61 6e 76 |........|....Canv|
|00001460| 61 73 00 00 00 00 04 07 | 4d 6f 75 73 65 55 70 14 |as......|MouseUp.|
|00001470| 15 14 15 8b 01 39 53 75 | 62 20 4d 6f 75 73 65 55 |.....9Su|b MouseU|
|00001480| 70 28 49 6e 64 65 78 20 | 41 73 20 49 6e 74 65 67 |p(Index |As Integ|
|00001490| 65 72 2c 20 58 20 41 73 | 20 49 6e 74 65 67 65 72 |er, X As| Integer|
|000014a0| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 15 |, Y As I|nteger).|
|000014b0| 69 66 20 63 75 72 72 65 | 6e 74 6c 79 44 6f 77 6e |if curre|ntlyDown|
|000014c0| 20 74 68 65 6e 1b 69 66 | 20 6e 6f 74 20 73 65 63 | then.if| not sec|
|000014d0| 6f 6e 64 46 75 6e 63 74 | 69 6f 6e 73 20 74 68 65 |ondFunct|ions the|
|000014e0| 6e 11 73 65 6c 65 63 74 | 20 63 61 73 65 20 49 6e |n.select| case In|
|000014f0| 64 65 78 06 63 61 73 65 | 20 30 14 4f 70 65 72 61 |dex.case| 0.Opera|
|00001500| 74 6f 72 43 6c 69 63 6b | 65 64 20 22 a1 46 22 2e |torClick|ed ".F".|
|00001510| 43 6f 6e 76 4b 65 79 28 | 49 6e 64 65 78 29 2e 67 |ConvKey(|Index).g|
|00001520| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00001530| 75 72 65 20 43 46 55 70 | 2c 20 30 2c 20 30 06 63 |ure CFUp|, 0, 0.c|
|00001540| 61 73 65 20 31 14 4f 70 | 65 72 61 74 6f 72 43 6c |ase 1.Op|eratorCl|
|00001550| 69 63 6b 65 64 20 22 69 | 6e 22 30 43 6f 6e 76 4b |icked "i|n"0ConvK|
|00001560| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00001570| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 63 |cs.DrawP|icture c|
|00001580| 6d 69 6e 55 70 2c 20 30 | 2c 20 30 06 63 61 73 65 |minUp, 0|, 0.case|
|00001590| 20 32 15 4f 70 65 72 61 | 74 6f 72 43 6c 69 63 6b | 2.Opera|torClick|
|000015a0| 65 64 20 22 67 61 6c 22 | 30 43 6f 6e 76 4b 65 79 |ed "gal"|0ConvKey|
|000015b0| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|000015c0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 6c 67 61 |.DrawPic|ture lga|
|000015d0| 6c 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 33 |lUp, 0, |0.case 3|
|000015e0| 14 4f 70 65 72 61 74 6f | 72 43 6c 69 63 6b 65 64 |.Operato|rClicked|
|000015f0| 20 22 6f 7a 22 2f 43 6f | 6e 76 4b 65 79 28 49 6e | "oz"/Co|nvKey(In|
|00001600| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|00001610| 61 77 50 69 63 74 75 72 | 65 20 67 6f 7a 55 70 2c |awPictur|e gozUp,|
|00001620| 20 30 2c 20 30 06 63 61 | 73 65 20 34 14 4f 70 65 | 0, 0.ca|se 4.Ope|
|00001630| 72 61 74 6f 72 43 6c 69 | 63 6b 65 64 20 22 79 64 |ratorCli|cked "yd|
|00001640| 22 2f 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |"/ConvKe|y(Index)|
|00001650| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00001660| 63 74 75 72 65 20 6d 79 | 64 55 70 2c 20 30 2c 20 |cture my|dUp, 0, |
|00001670| 30 06 63 61 73 65 20 35 | 17 4f 70 65 72 61 74 6f |0.case 5|.Operato|
|00001680| 72 43 6c 69 63 6b 65 64 | 20 22 6d 32 66 74 32 22 |rClicked| "m2ft2"|
|00001690| 31 43 6f 6e 76 4b 65 79 | 28 49 6e 64 65 78 29 2e |1ConvKey|(Index).|
|000016a0| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|000016b0| 74 75 72 65 20 6d 32 66 | 74 32 55 70 2c 20 30 2c |ture m2f|t2Up, 0,|
|000016c0| 20 30 06 63 61 73 65 20 | 36 13 4f 70 65 72 61 74 | 0.case |6.Operat|
|000016d0| 6f 72 43 6c 69 63 6b 65 | 64 20 22 2f 22 32 43 6f |orClicke|d "/"2Co|
|000016e0| 6e 76 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |nvKey(In|dex).gra|
|000016f0| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|00001700| 65 20 59 65 6e 44 6f 6c | 55 70 2c 20 30 2c 20 30 |e YenDol|Up, 0, 0|
|00001710| 87 01 6d 73 67 42 6f 78 | 20 22 50 6c 65 61 73 65 |..msgBox| "Please|
|00001720| 20 65 6e 74 65 72 20 74 | 6f 64 61 79 27 73 20 59 | enter t|oday's Y|
|00001730| 65 6e 2f 44 6f 6c 6c 61 | 72 20 72 61 74 65 20 61 |en/Dolla|r rate a|
|00001740| 6e 64 20 70 72 65 73 73 | 20 27 3d 27 20 6f 72 20 |nd press| '=' or |
|00001750| 27 65 6e 74 65 72 2e 27 | 22 06 63 61 73 65 20 37 |'enter.'|".case 7|
|00001760| 15 4f 70 65 72 61 74 6f | 72 43 6c 69 63 6b 65 64 |.Operato|rClicked|
|00001770| 20 22 6c 62 73 22 31 43 | 6f 6e 76 4b 65 79 28 49 | "lbs"1C|onvKey(I|
|00001780| 6e 64 65 78 29 2e 67 72 | 61 70 68 69 63 73 2e 44 |ndex).gr|aphics.D|
|00001790| 72 61 77 50 69 63 74 75 | 72 65 20 6b 67 6c 62 73 |rawPictu|re kglbs|
|000017a0| 55 70 2c 20 30 2c 20 30 | 06 63 61 73 65 20 38 14 |Up, 0, 0|.case 8.|
|000017b0| 4f 70 65 72 61 74 6f 72 | 43 6c 69 63 6b 65 64 20 |Operator|Clicked |
|000017c0| 22 6d 69 22 30 43 6f 6e | 76 4b 65 79 28 49 6e 64 |"mi"0Con|vKey(Ind|
|000017d0| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|000017e0| 77 50 69 63 74 75 72 65 | 20 6b 6d 6d 69 55 70 2c |wPicture| kmmiUp,|
|000017f0| 20 30 2c 20 30 06 63 61 | 73 65 20 39 92 01 4f 70 | 0, 0.ca|se 9..Op|
|00001800| 65 72 61 74 6f 72 43 6c | 69 63 6b 65 64 20 22 92 |eratorCl|icked ".|
|00001810| d8 22 20 20 2f 2f 20 20 | 54 68 69 73 20 69 73 20 |." // |This is |
|00001820| 74 68 65 20 63 68 69 6e | 65 73 65 20 63 68 61 72 |the chin|ese char|
|00001830| 61 63 74 65 72 20 66 6f | 72 20 27 54 73 75 62 6f |acter fo|r 'Tsubo|
|00001840| 2c 27 20 61 20 74 72 61 | 64 69 74 69 6f 6e 61 6c |,' a tra|ditional|
|00001850| 83 01 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001870| 20 20 20 2f 2f 20 20 4a | 61 70 61 6e 65 73 65 20 | // J|apanese |
|00001880| 6d 65 61 73 75 72 65 6d | 65 6e 74 20 66 6f 72 20 |measurem|ent for |
|00001890| 61 72 65 61 2e 31 43 6f | 6e 76 4b 65 79 28 49 6e |area.1Co|nvKey(In|
|000018a0| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|000018b0| 61 77 50 69 63 74 75 72 | 65 20 6d 32 54 73 75 55 |awPictur|e m2TsuU|
|000018c0| 70 2c 20 30 2c 20 30 0a | 65 6e 64 20 73 65 6c 65 |p, 0, 0.|end sele|
|000018d0| 63 74 04 65 6c 73 65 11 | 73 65 6c 65 63 74 20 63 |ct.else.|select c|
|000018e0| 61 73 65 20 49 6e 64 65 | 78 06 63 61 73 65 20 30 |ase Inde|x.case 0|
|000018f0| 14 4f 70 65 72 61 74 6f | 72 43 6c 69 63 6b 65 64 |.Operato|rClicked|
|00001900| 20 22 a1 43 22 2e 43 6f | 6e 76 4b 65 79 28 49 6e | ".C".Co|nvKey(In|
|00001910| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|00001920| 61 77 50 69 63 74 75 72 | 65 20 46 43 55 70 2c 20 |awPictur|e FCUp, |
|00001930| 30 2c 20 30 06 63 61 73 | 65 20 31 14 4f 70 65 72 |0, 0.cas|e 1.Oper|
|00001940| 61 74 6f 72 43 6c 69 63 | 6b 65 64 20 22 63 6d 22 |atorClic|ked "cm"|
|00001950| 30 43 6f 6e 76 4b 65 79 | 28 49 6e 64 65 78 29 2e |0ConvKey|(Index).|
|00001960| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00001970| 74 75 72 65 20 69 6e 63 | 6d 55 70 2c 20 30 2c 20 |ture inc|mUp, 0, |
|00001980| 30 06 63 61 73 65 20 32 | 13 4f 70 65 72 61 74 6f |0.case 2|.Operato|
|00001990| 72 43 6c 69 63 6b 65 64 | 20 22 6c 22 30 43 6f 6e |rClicked| "l"0Con|
|000019a0| 76 4b 65 79 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |vKey(Ind|ex).grap|
|000019b0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|000019c0| 20 67 61 6c 6c 55 70 2c | 20 30 2c 20 30 06 63 61 | gallUp,| 0, 0.ca|
|000019d0| 73 65 20 33 13 4f 70 65 | 72 61 74 6f 72 43 6c 69 |se 3.Ope|ratorCli|
|000019e0| 63 6b 65 64 20 22 67 22 | 2f 43 6f 6e 76 4b 65 79 |cked "g"|/ConvKey|
|000019f0| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00001a00| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 6f 7a 67 |.DrawPic|ture ozg|
|00001a10| 55 70 2c 20 30 2c 20 30 | 06 63 61 73 65 20 34 13 |Up, 0, 0|.case 4.|
|00001a20| 4f 70 65 72 61 74 6f 72 | 43 6c 69 63 6b 65 64 20 |Operator|Clicked |
|00001a30| 22 6d 22 2f 43 6f 6e 76 | 4b 65 79 28 49 6e 64 65 |"m"/Conv|Key(Inde|
|00001a40| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|00001a50| 50 69 63 74 75 72 65 20 | 79 64 6d 55 70 2c 20 30 |Picture |ydmUp, 0|
|00001a60| 2c 20 30 06 63 61 73 65 | 20 35 17 4f 70 65 72 61 |, 0.case| 5.Opera|
|00001a70| 74 6f 72 43 6c 69 63 6b | 65 64 20 22 66 74 32 6d |torClick|ed "ft2m|
|00001a80| 32 22 31 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 |2"1ConvK|ey(Index|
|00001a90| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00001aa0| 69 63 74 75 72 65 20 66 | 74 32 6d 32 55 70 2c 20 |icture f|t2m2Up, |
|00001ab0| 30 2c 20 30 06 63 61 73 | 65 20 36 13 4f 70 65 72 |0, 0.cas|e 6.Oper|
|00001ac0| 61 74 6f 72 43 6c 69 63 | 6b 65 64 20 22 2a 22 32 |atorClic|ked "*"2|
|00001ad0| 43 6f 6e 76 4b 65 79 28 | 49 6e 64 65 78 29 2e 67 |ConvKey(|Index).g|
|00001ae0| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00001af0| 75 72 65 20 44 6f 6c 59 | 65 6e 55 70 2c 20 30 2c |ure DolY|enUp, 0,|
|00001b00| 20 30 87 01 6d 73 67 42 | 6f 78 20 22 50 6c 65 61 | 0..msgB|ox "Plea|
|00001b10| 73 65 20 65 6e 74 65 72 | 20 74 6f 64 61 79 27 73 |se enter| today's|
|00001b20| 20 59 65 6e 2f 44 6f 6c | 6c 61 72 20 72 61 74 65 | Yen/Dol|lar rate|
|00001b30| 20 61 6e 64 20 70 72 65 | 73 73 20 27 3d 27 20 6f | and pre|ss '=' o|
|00001b40| 72 20 27 65 6e 74 65 72 | 2e 27 22 06 63 61 73 65 |r 'enter|.'".case|
|00001b50| 20 37 14 4f 70 65 72 61 | 74 6f 72 43 6c 69 63 6b | 7.Opera|torClick|
|00001b60| 65 64 20 22 6b 67 22 31 | 43 6f 6e 76 4b 65 79 28 |ed "kg"1|ConvKey(|
|00001b70| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00001b80| 44 72 61 77 50 69 63 74 | 75 72 65 20 6c 62 73 6b |DrawPict|ure lbsk|
|00001b90| 67 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 38 |gUp, 0, |0.case 8|
|00001ba0| 14 4f 70 65 72 61 74 6f | 72 43 6c 69 63 6b 65 64 |.Operato|rClicked|
|00001bb0| 20 22 6b 6d 22 30 43 6f | 6e 76 4b 65 79 28 49 6e | "km"0Co|nvKey(In|
|00001bc0| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|00001bd0| 61 77 50 69 63 74 75 72 | 65 20 6d 69 6b 6d 55 70 |awPictur|e mikmUp|
|00001be0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 39 14 4f 70 |, 0, 0.c|ase 9.Op|
|00001bf0| 65 72 61 74 6f 72 43 6c | 69 63 6b 65 64 20 22 6d |eratorCl|icked "m|
|00001c00| 32 22 31 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 |2"1ConvK|ey(Index|
|00001c10| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00001c20| 69 63 74 75 72 65 20 54 | 73 75 6d 32 55 70 2c 20 |icture T|sum2Up, |
|00001c30| 30 2c 20 30 0a 65 6e 64 | 20 73 65 6c 65 63 74 06 |0, 0.end| select.|
|00001c40| 65 6e 64 20 69 66 15 63 | 75 72 72 65 6e 74 6c 79 |end if.c|urrently|
|00001c50| 44 6f 77 6e 20 3d 20 66 | 61 6c 73 65 06 65 6e 64 |Down = f|alse.end|
|00001c60| 20 69 66 07 45 6e 64 20 | 53 75 62 09 4d 6f 75 73 | if.End |Sub.Mous|
|00001c70| 65 44 72 61 67 9b 01 26 | 9b 01 26 a9 01 3b 53 75 |eDrag..&|..&..;Su|
|00001c80| 62 20 4d 6f 75 73 65 44 | 72 61 67 28 49 6e 64 65 |b MouseD|rag(Inde|
|00001c90| 78 20 41 73 20 49 6e 74 | 65 67 65 72 2c 20 58 20 |x As Int|eger, X |
|00001ca0| 41 73 20 49 6e 74 65 67 | 65 72 2c 20 59 20 41 73 |As Integ|er, Y As|
|00001cb0| 20 49 6e 74 65 67 65 72 | 29 9e 02 69 66 20 58 20 | Integer|)..if X |
|00001cc0| 3c 20 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |< ConvKe|y(Index)|
|00001cd0| 2e 6c 65 66 74 20 6f 72 | 20 78 20 3e 20 43 6f 6e |.left or| x > Con|
|00001ce0| 76 4b 65 79 28 49 6e 64 | 65 78 29 2e 6c 65 66 74 |vKey(Ind|ex).left|
|00001cf0| 20 2b 20 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 | + ConvK|ey(Index|
|00001d00| 29 2e 77 69 64 74 68 20 | 6f 72 20 79 20 3c 20 43 |).width |or y < C|
|00001d10| 6f 6e 76 4b 65 79 28 49 | 6e 64 65 78 29 2e 74 6f |onvKey(I|ndex).to|
|00001d20| 70 20 6f 72 20 79 20 3e | 3d 20 43 6f 6e 76 4b 65 |p or y >|= ConvKe|
|00001d30| 79 28 49 6e 64 65 78 29 | 2e 74 6f 70 20 2b 20 43 |y(Index)|.top + C|
|00001d40| 6f 6e 76 4b 65 79 28 49 | 6e 64 65 78 29 2e 68 65 |onvKey(I|ndex).he|
|00001d50| 69 67 68 74 20 74 68 65 | 6e 15 69 66 20 63 75 72 |ight the|n.if cur|
|00001d60| 72 65 6e 74 6c 79 44 6f | 77 6e 20 74 68 65 6e 15 |rentlyDo|wn then.|
|00001d70| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 3d 20 |currentl|yDown = |
|00001d80| 66 61 6c 73 65 1b 69 66 | 20 6e 6f 74 20 73 65 63 |false.if| not sec|
|00001d90| 6f 6e 64 46 75 6e 63 74 | 69 6f 6e 73 20 74 68 65 |ondFunct|ions the|
|00001da0| 6e 11 73 65 6c 65 63 74 | 20 63 61 73 65 20 49 6e |n.select| case In|
|00001db0| 64 65 78 06 63 61 73 65 | 20 30 2e 43 6f 6e 76 4b |dex.case| 0.ConvK|
|00001dc0| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00001dd0| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 43 |cs.DrawP|icture C|
|00001de0| 46 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 31 |FUp, 0, |0.case 1|
|00001df0| 30 43 6f 6e 76 4b 65 79 | 28 49 6e 64 65 78 29 2e |0ConvKey|(Index).|
|00001e00| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00001e10| 74 75 72 65 20 63 6d 69 | 6e 55 70 2c 20 30 2c 20 |ture cmi|nUp, 0, |
|00001e20| 30 06 63 61 73 65 20 32 | 30 43 6f 6e 76 4b 65 79 |0.case 2|0ConvKey|
|00001e30| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00001e40| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 6c 67 61 |.DrawPic|ture lga|
|00001e50| 6c 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 33 |lUp, 0, |0.case 3|
|00001e60| 2f 43 6f 6e 76 4b 65 79 | 28 49 6e 64 65 78 29 2e |/ConvKey|(Index).|
|00001e70| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00001e80| 74 75 72 65 20 67 6f 7a | 55 70 2c 20 30 2c 20 30 |ture goz|Up, 0, 0|
|00001e90| 06 63 61 73 65 20 34 2f | 43 6f 6e 76 4b 65 79 28 |.case 4/|ConvKey(|
|00001ea0| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00001eb0| 44 72 61 77 50 69 63 74 | 75 72 65 20 6d 79 64 55 |DrawPict|ure mydU|
|00001ec0| 70 2c 20 30 2c 20 30 06 | 63 61 73 65 20 35 31 43 |p, 0, 0.|case 51C|
|00001ed0| 6f 6e 76 4b 65 79 28 49 | 6e 64 65 78 29 2e 67 72 |onvKey(I|ndex).gr|
|00001ee0| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00001ef0| 72 65 20 6d 32 66 74 32 | 55 70 2c 20 30 2c 20 30 |re m2ft2|Up, 0, 0|
|00001f00| 06 63 61 73 65 20 36 32 | 43 6f 6e 76 4b 65 79 28 |.case 62|ConvKey(|
|00001f10| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00001f20| 44 72 61 77 50 69 63 74 | 75 72 65 20 59 65 6e 44 |DrawPict|ure YenD|
|00001f30| 6f 6c 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |olUp, 0,| 0.case |
|00001f40| 37 31 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |71ConvKe|y(Index)|
|00001f50| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00001f60| 63 74 75 72 65 20 6b 67 | 6c 62 73 55 70 2c 20 30 |cture kg|lbsUp, 0|
|00001f70| 2c 20 30 06 63 61 73 65 | 20 38 30 43 6f 6e 76 4b |, 0.case| 80ConvK|
|00001f80| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00001f90| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 6b |cs.DrawP|icture k|
|00001fa0| 6d 6d 69 55 70 2c 20 30 | 2c 20 30 06 63 61 73 65 |mmiUp, 0|, 0.case|
|00001fb0| 20 39 31 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 | 91ConvK|ey(Index|
|00001fc0| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00001fd0| 69 63 74 75 72 65 20 6d | 32 54 73 75 55 70 2c 20 |icture m|2TsuUp, |
|00001fe0| 30 2c 20 30 0a 65 6e 64 | 20 73 65 6c 65 63 74 04 |0, 0.end| select.|
|00001ff0| 65 6c 73 65 11 73 65 6c | 65 63 74 20 63 61 73 65 |else.sel|ect case|
|00002000| 20 49 6e 64 65 78 06 63 | 61 73 65 20 30 2e 43 6f | Index.c|ase 0.Co|
|00002010| 6e 76 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |nvKey(In|dex).gra|
|00002020| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|00002030| 65 20 46 43 55 70 2c 20 | 30 2c 20 30 06 63 61 73 |e FCUp, |0, 0.cas|
|00002040| 65 20 31 30 43 6f 6e 76 | 4b 65 79 28 49 6e 64 65 |e 10Conv|Key(Inde|
|00002050| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|00002060| 50 69 63 74 75 72 65 20 | 69 6e 63 6d 55 70 2c 20 |Picture |incmUp, |
|00002070| 30 2c 20 30 06 63 61 73 | 65 20 32 30 43 6f 6e 76 |0, 0.cas|e 20Conv|
|00002080| 4b 65 79 28 49 6e 64 65 | 78 29 2e 67 72 61 70 68 |Key(Inde|x).graph|
|00002090| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|000020a0| 67 61 6c 6c 55 70 2c 20 | 30 2c 20 30 06 63 61 73 |gallUp, |0, 0.cas|
|000020b0| 65 20 33 2f 43 6f 6e 76 | 4b 65 79 28 49 6e 64 65 |e 3/Conv|Key(Inde|
|000020c0| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|000020d0| 50 69 63 74 75 72 65 20 | 6f 7a 67 55 70 2c 20 30 |Picture |ozgUp, 0|
|000020e0| 2c 20 30 06 63 61 73 65 | 20 34 2f 43 6f 6e 76 4b |, 0.case| 4/ConvK|
|000020f0| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00002100| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 79 |cs.DrawP|icture y|
|00002110| 64 6d 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |dmUp, 0,| 0.case |
|00002120| 35 31 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |51ConvKe|y(Index)|
|00002130| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00002140| 63 74 75 72 65 20 66 74 | 32 6d 32 55 70 2c 20 30 |cture ft|2m2Up, 0|
|00002150| 2c 20 30 06 63 61 73 65 | 20 36 32 43 6f 6e 76 4b |, 0.case| 62ConvK|
|00002160| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00002170| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 44 |cs.DrawP|icture D|
|00002180| 6f 6c 59 65 6e 55 70 2c | 20 30 2c 20 30 06 63 61 |olYenUp,| 0, 0.ca|
|00002190| 73 65 20 37 31 43 6f 6e | 76 4b 65 79 28 49 6e 64 |se 71Con|vKey(Ind|
|000021a0| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|000021b0| 77 50 69 63 74 75 72 65 | 20 6c 62 73 6b 67 55 70 |wPicture| lbskgUp|
|000021c0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 38 30 43 6f |, 0, 0.c|ase 80Co|
|000021d0| 6e 76 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |nvKey(In|dex).gra|
|000021e0| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|000021f0| 65 20 6d 69 6b 6d 55 70 | 2c 20 30 2c 20 30 06 63 |e mikmUp|, 0, 0.c|
|00002200| 61 73 65 20 39 31 43 6f | 6e 76 4b 65 79 28 49 6e |ase 91Co|nvKey(In|
|00002210| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|00002220| 61 77 50 69 63 74 75 72 | 65 20 54 73 75 6d 32 55 |awPictur|e Tsum2U|
|00002230| 70 2c 20 30 2c 20 30 0a | 65 6e 64 20 73 65 6c 65 |p, 0, 0.|end sele|
|00002240| 63 74 06 65 6e 64 20 69 | 66 06 65 6e 64 20 69 66 |ct.end i|f.end if|
|00002250| 04 65 6c 73 65 19 69 66 | 20 6e 6f 74 20 63 75 72 |.else.if| not cur|
|00002260| 72 65 6e 74 6c 79 44 6f | 77 6e 20 74 68 65 6e 14 |rentlyDo|wn then.|
|00002270| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 3d 20 |currentl|yDown = |
|00002280| 74 72 75 65 1b 69 66 20 | 6e 6f 74 20 73 65 63 6f |true.if |not seco|
|00002290| 6e 64 46 75 6e 63 74 69 | 6f 6e 73 20 74 68 65 6e |ndFuncti|ons then|
|000022a0| 11 73 65 6c 65 63 74 20 | 63 61 73 65 20 49 6e 64 |.select |case Ind|
|000022b0| 65 78 06 63 61 73 65 20 | 30 2e 43 6f 6e 76 4b 65 |ex.case |0.ConvKe|
|000022c0| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|000022d0| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 43 46 |s.DrawPi|cture CF|
|000022e0| 44 6e 2c 20 30 2c 20 30 | 06 63 61 73 65 20 31 30 |Dn, 0, 0|.case 10|
|000022f0| 43 6f 6e 76 4b 65 79 28 | 49 6e 64 65 78 29 2e 67 |ConvKey(|Index).g|
|00002300| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00002310| 75 72 65 20 63 6d 69 6e | 44 6e 2c 20 30 2c 20 30 |ure cmin|Dn, 0, 0|
|00002320| 06 63 61 73 65 20 32 30 | 43 6f 6e 76 4b 65 79 28 |.case 20|ConvKey(|
|00002330| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00002340| 44 72 61 77 50 69 63 74 | 75 72 65 20 6c 67 61 6c |DrawPict|ure lgal|
|00002350| 44 6e 2c 20 30 2c 20 30 | 06 63 61 73 65 20 33 2f |Dn, 0, 0|.case 3/|
|00002360| 43 6f 6e 76 4b 65 79 28 | 49 6e 64 65 78 29 2e 67 |ConvKey(|Index).g|
|00002370| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00002380| 75 72 65 20 67 6f 7a 44 | 6e 2c 20 30 2c 20 30 06 |ure gozD|n, 0, 0.|
|00002390| 63 61 73 65 20 34 2f 43 | 6f 6e 76 4b 65 79 28 49 |case 4/C|onvKey(I|
|000023a0| 6e 64 65 78 29 2e 67 72 | 61 70 68 69 63 73 2e 44 |ndex).gr|aphics.D|
|000023b0| 72 61 77 50 69 63 74 75 | 72 65 20 6d 79 64 44 6e |rawPictu|re mydDn|
|000023c0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 35 31 43 6f |, 0, 0.c|ase 51Co|
|000023d0| 6e 76 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |nvKey(In|dex).gra|
|000023e0| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|000023f0| 65 20 6d 32 66 74 32 44 | 6e 2c 20 30 2c 20 30 06 |e m2ft2D|n, 0, 0.|
|00002400| 63 61 73 65 20 36 32 43 | 6f 6e 76 4b 65 79 28 49 |case 62C|onvKey(I|
|00002410| 6e 64 65 78 29 2e 67 72 | 61 70 68 69 63 73 2e 44 |ndex).gr|aphics.D|
|00002420| 72 61 77 50 69 63 74 75 | 72 65 20 59 65 6e 44 6f |rawPictu|re YenDo|
|00002430| 6c 44 6e 2c 20 30 2c 20 | 30 06 63 61 73 65 20 37 |lDn, 0, |0.case 7|
|00002440| 31 43 6f 6e 76 4b 65 79 | 28 49 6e 64 65 78 29 2e |1ConvKey|(Index).|
|00002450| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00002460| 74 75 72 65 20 6b 67 6c | 62 73 44 6e 2c 20 30 2c |ture kgl|bsDn, 0,|
|00002470| 20 30 06 63 61 73 65 20 | 38 30 43 6f 6e 76 4b 65 | 0.case |80ConvKe|
|00002480| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|00002490| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 6b 6d |s.DrawPi|cture km|
|000024a0| 6d 69 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |miDn, 0,| 0.case |
|000024b0| 39 31 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |91ConvKe|y(Index)|
|000024c0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|000024d0| 63 74 75 72 65 20 6d 32 | 54 73 75 44 6e 2c 20 30 |cture m2|TsuDn, 0|
|000024e0| 2c 20 30 0a 65 6e 64 20 | 73 65 6c 65 63 74 04 65 |, 0.end |select.e|
|000024f0| 6c 73 65 11 73 65 6c 65 | 63 74 20 63 61 73 65 20 |lse.sele|ct case |
|00002500| 49 6e 64 65 78 06 63 61 | 73 65 20 30 2e 43 6f 6e |Index.ca|se 0.Con|
|00002510| 76 4b 65 79 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |vKey(Ind|ex).grap|
|00002520| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00002530| 20 46 43 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 | FCDn, 0|, 0.case|
|00002540| 20 31 30 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 | 10ConvK|ey(Index|
|00002550| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00002560| 69 63 74 75 72 65 20 69 | 6e 63 6d 44 6e 2c 20 30 |icture i|ncmDn, 0|
|00002570| 2c 20 30 06 63 61 73 65 | 20 32 30 43 6f 6e 76 4b |, 0.case| 20ConvK|
|00002580| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00002590| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 67 |cs.DrawP|icture g|
|000025a0| 61 6c 6c 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 |allDn, 0|, 0.case|
|000025b0| 20 33 2f 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 | 3/ConvK|ey(Index|
|000025c0| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|000025d0| 69 63 74 75 72 65 20 6f | 7a 67 44 6e 2c 20 30 2c |icture o|zgDn, 0,|
|000025e0| 20 30 06 63 61 73 65 20 | 34 2f 43 6f 6e 76 4b 65 | 0.case |4/ConvKe|
|000025f0| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|00002600| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 79 64 |s.DrawPi|cture yd|
|00002610| 6d 44 6e 2c 20 30 2c 20 | 30 06 63 61 73 65 20 35 |mDn, 0, |0.case 5|
|00002620| 31 43 6f 6e 76 4b 65 79 | 28 49 6e 64 65 78 29 2e |1ConvKey|(Index).|
|00002630| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00002640| 74 75 72 65 20 66 74 32 | 6d 32 44 6e 2c 20 30 2c |ture ft2|m2Dn, 0,|
|00002650| 20 30 06 63 61 73 65 20 | 36 32 43 6f 6e 76 4b 65 | 0.case |62ConvKe|
|00002660| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|00002670| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 44 6f |s.DrawPi|cture Do|
|00002680| 6c 59 65 6e 44 6e 2c 20 | 30 2c 20 30 06 63 61 73 |lYenDn, |0, 0.cas|
|00002690| 65 20 37 31 43 6f 6e 76 | 4b 65 79 28 49 6e 64 65 |e 71Conv|Key(Inde|
|000026a0| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|000026b0| 50 69 63 74 75 72 65 20 | 6c 62 73 6b 67 44 6e 2c |Picture |lbskgDn,|
|000026c0| 20 30 2c 20 30 06 63 61 | 73 65 20 38 30 43 6f 6e | 0, 0.ca|se 80Con|
|000026d0| 76 4b 65 79 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |vKey(Ind|ex).grap|
|000026e0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|000026f0| 20 6d 69 6b 6d 44 6e 2c | 20 30 2c 20 30 06 63 61 | mikmDn,| 0, 0.ca|
|00002700| 73 65 20 39 31 43 6f 6e | 76 4b 65 79 28 49 6e 64 |se 91Con|vKey(Ind|
|00002710| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|00002720| 77 50 69 63 74 75 72 65 | 20 54 73 75 6d 32 44 6e |wPicture| Tsum2Dn|
|00002730| 2c 20 30 2c 20 30 0a 65 | 6e 64 20 73 65 6c 65 63 |, 0, 0.e|nd selec|
|00002740| 74 06 65 6e 64 20 69 66 | 06 65 6e 64 20 69 66 06 |t.end if|.end if.|
|00002750| 65 6e 64 20 69 66 07 45 | 6e 64 20 53 75 62 09 4d |end if.E|nd Sub.M|
|00002760| 6f 75 73 65 44 6f 77 6e | 26 26 26 26 33 8b 01 46 |ouseDown|&&&&3..F|
|00002770| 75 6e 63 74 69 6f 6e 20 | 4d 6f 75 73 65 44 6f 77 |unction |MouseDow|
|00002780| 6e 28 49 6e 64 65 78 20 | 41 73 20 49 6e 74 65 67 |n(Index |As Integ|
|00002790| 65 72 2c 20 58 20 41 73 | 20 49 6e 74 65 67 65 72 |er, X As| Integer|
|000027a0| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 20 |, Y As I|nteger) |
|000027b0| 41 73 20 42 6f 6f 6c 65 | 61 6e 14 63 75 72 72 65 |As Boole|an.curre|
|000027c0| 6e 74 6c 79 44 6f 77 6e | 20 3d 20 74 72 75 65 1b |ntlyDown| = true.|
|000027d0| 69 66 20 6e 6f 74 20 73 | 65 63 6f 6e 64 46 75 6e |if not s|econdFun|
|000027e0| 63 74 69 6f 6e 73 20 74 | 68 65 6e 11 73 65 6c 65 |ctions t|hen.sele|
|000027f0| 63 74 20 63 61 73 65 20 | 49 6e 64 65 78 06 63 61 |ct case |Index.ca|
|00002800| 73 65 20 30 2e 43 6f 6e | 76 4b 65 79 28 49 6e 64 |se 0.Con|vKey(Ind|
|00002810| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|00002820| 77 50 69 63 74 75 72 65 | 20 43 46 44 6e 2c 20 30 |wPicture| CFDn, 0|
|00002830| 2c 20 30 06 63 61 73 65 | 20 31 30 43 6f 6e 76 4b |, 0.case| 10ConvK|
|00002840| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|00002850| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 63 |cs.DrawP|icture c|
|00002860| 6d 69 6e 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 |minDn, 0|, 0.case|
|00002870| 20 32 30 43 6f 6e 76 4b | 65 79 28 49 6e 64 65 78 | 20ConvK|ey(Index|
|00002880| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00002890| 69 63 74 75 72 65 20 6c | 67 61 6c 44 6e 2c 20 30 |icture l|galDn, 0|
|000028a0| 2c 20 30 06 63 61 73 65 | 20 33 2f 43 6f 6e 76 4b |, 0.case| 3/ConvK|
|000028b0| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|000028c0| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 67 |cs.DrawP|icture g|
|000028d0| 6f 7a 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |ozDn, 0,| 0.case |
|000028e0| 34 2f 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |4/ConvKe|y(Index)|
|000028f0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00002900| 63 74 75 72 65 20 6d 79 | 64 44 6e 2c 20 30 2c 20 |cture my|dDn, 0, |
|00002910| 30 06 63 61 73 65 20 35 | 31 43 6f 6e 76 4b 65 79 |0.case 5|1ConvKey|
|00002920| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00002930| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 6d 32 66 |.DrawPic|ture m2f|
|00002940| 74 32 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |t2Dn, 0,| 0.case |
|00002950| 36 32 43 6f 6e 76 4b 65 | 79 28 49 6e 64 65 78 29 |62ConvKe|y(Index)|
|00002960| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00002970| 63 74 75 72 65 20 59 65 | 6e 44 6f 6c 44 6e 2c 20 |cture Ye|nDolDn, |
|00002980| 30 2c 20 30 06 63 61 73 | 65 20 37 31 43 6f 6e 76 |0, 0.cas|e 71Conv|
|00002990| 4b 65 79 28 49 6e 64 65 | 78 29 2e 67 72 61 70 68 |Key(Inde|x).graph|
|000029a0| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|000029b0| 6b 67 6c 62 73 44 6e 2c | 20 30 2c 20 30 06 63 61 |kglbsDn,| 0, 0.ca|
|000029c0| 73 65 20 38 30 43 6f 6e | 76 4b 65 79 28 49 6e 64 |se 80Con|vKey(Ind|
|000029d0| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|000029e0| 77 50 69 63 74 75 72 65 | 20 6b 6d 6d 69 44 6e 2c |wPicture| kmmiDn,|
|000029f0| 20 30 2c 20 30 06 63 61 | 73 65 20 39 31 43 6f 6e | 0, 0.ca|se 91Con|
|00002a00| 76 4b 65 79 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |vKey(Ind|ex).grap|
|00002a10| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00002a20| 20 6d 32 54 73 75 44 6e | 2c 20 30 2c 20 30 0a 65 | m2TsuDn|, 0, 0.e|
|00002a30| 6e 64 20 73 65 6c 65 63 | 74 04 65 6c 73 65 11 73 |nd selec|t.else.s|
|00002a40| 65 6c 65 63 74 20 63 61 | 73 65 20 49 6e 64 65 78 |elect ca|se Index|
|00002a50| 06 63 61 73 65 20 30 2e | 43 6f 6e 76 4b 65 79 28 |.case 0.|ConvKey(|
|00002a60| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00002a70| 44 72 61 77 50 69 63 74 | 75 72 65 20 46 43 44 6e |DrawPict|ure FCDn|
|00002a80| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 31 30 43 6f |, 0, 0.c|ase 10Co|
|00002a90| 6e 76 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |nvKey(In|dex).gra|
|00002aa0| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|00002ab0| 65 20 69 6e 63 6d 44 6e | 2c 20 30 2c 20 30 06 63 |e incmDn|, 0, 0.c|
|00002ac0| 61 73 65 20 32 30 43 6f | 6e 76 4b 65 79 28 49 6e |ase 20Co|nvKey(In|
|00002ad0| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|00002ae0| 61 77 50 69 63 74 75 72 | 65 20 67 61 6c 6c 44 6e |awPictur|e gallDn|
|00002af0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 33 2f 43 6f |, 0, 0.c|ase 3/Co|
|00002b00| 6e 76 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |nvKey(In|dex).gra|
|00002b10| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|00002b20| 65 20 6f 7a 67 44 6e 2c | 20 30 2c 20 30 06 63 61 |e ozgDn,| 0, 0.ca|
|00002b30| 73 65 20 34 2f 43 6f 6e | 76 4b 65 79 28 49 6e 64 |se 4/Con|vKey(Ind|
|00002b40| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|00002b50| 77 50 69 63 74 75 72 65 | 20 79 64 6d 44 6e 2c 20 |wPicture| ydmDn, |
|00002b60| 30 2c 20 30 06 63 61 73 | 65 20 35 31 43 6f 6e 76 |0, 0.cas|e 51Conv|
|00002b70| 4b 65 79 28 49 6e 64 65 | 78 29 2e 67 72 61 70 68 |Key(Inde|x).graph|
|00002b80| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|00002b90| 66 74 32 6d 32 44 6e 2c | 20 30 2c 20 30 06 63 61 |ft2m2Dn,| 0, 0.ca|
|00002ba0| 73 65 20 36 32 43 6f 6e | 76 4b 65 79 28 49 6e 64 |se 62Con|vKey(Ind|
|00002bb0| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|00002bc0| 77 50 69 63 74 75 72 65 | 20 44 6f 6c 59 65 6e 44 |wPicture| DolYenD|
|00002bd0| 6e 2c 20 30 2c 20 30 06 | 63 61 73 65 20 37 31 43 |n, 0, 0.|case 71C|
|00002be0| 6f 6e 76 4b 65 79 28 49 | 6e 64 65 78 29 2e 67 72 |onvKey(I|ndex).gr|
|00002bf0| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00002c00| 72 65 20 6c 62 73 6b 67 | 44 6e 2c 20 30 2c 20 30 |re lbskg|Dn, 0, 0|
|00002c10| 06 63 61 73 65 20 38 30 | 43 6f 6e 76 4b 65 79 28 |.case 80|ConvKey(|
|00002c20| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00002c30| 44 72 61 77 50 69 63 74 | 75 72 65 20 6d 69 6b 6d |DrawPict|ure mikm|
|00002c40| 44 6e 2c 20 30 2c 20 30 | 06 63 61 73 65 20 39 31 |Dn, 0, 0|.case 91|
|00002c50| 43 6f 6e 76 4b 65 79 28 | 49 6e 64 65 78 29 2e 67 |ConvKey(|Index).g|
|00002c60| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00002c70| 75 72 65 20 54 73 75 6d | 32 44 6e 2c 20 30 2c 20 |ure Tsum|2Dn, 0, |
|00002c80| 30 0a 65 6e 64 20 73 65 | 6c 65 63 74 06 65 6e 64 |0.end se|lect.end|
|00002c90| 20 69 66 0b 72 65 74 75 | 72 6e 20 74 72 75 65 0c | if.retu|rn true.|
|00002ca0| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 05 50 61 69 |End Func|tion.Pai|
|00002cb0| 6e 74 96 01 10 96 01 10 | a3 01 2a 53 75 62 20 50 |nt......|..*Sub P|
|00002cc0| 61 69 6e 74 28 49 6e 64 | 65 78 20 41 73 20 49 6e |aint(Ind|ex As In|
|00002cd0| 74 65 67 65 72 2c 20 67 | 20 41 73 20 47 72 61 70 |teger, g| As Grap|
|00002ce0| 68 69 63 73 29 1b 69 66 | 20 6e 6f 74 20 73 65 63 |hics).if| not sec|
|00002cf0| 6f 6e 64 46 75 6e 63 74 | 69 6f 6e 73 20 74 68 65 |ondFunct|ions the|
|00002d00| 6e 15 69 66 20 63 75 72 | 72 65 6e 74 6c 79 44 6f |n.if cur|rentlyDo|
|00002d10| 77 6e 20 74 68 65 6e 11 | 73 65 6c 65 63 74 20 63 |wn then.|select c|
|00002d20| 61 73 65 20 49 6e 64 65 | 78 06 63 61 73 65 20 30 |ase Inde|x.case 0|
|00002d30| 18 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 43 |.g.DrawP|icture C|
|00002d40| 46 44 6e 2c 20 30 2c 20 | 30 06 63 61 73 65 20 31 |FDn, 0, |0.case 1|
|00002d50| 1a 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 63 |.g.DrawP|icture c|
|00002d60| 6d 69 6e 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 |minDn, 0|, 0.case|
|00002d70| 20 32 1a 67 2e 44 72 61 | 77 50 69 63 74 75 72 65 | 2.g.Dra|wPicture|
|00002d80| 20 6c 67 61 6c 44 6e 2c | 20 30 2c 20 30 06 63 61 | lgalDn,| 0, 0.ca|
|00002d90| 73 65 20 33 19 67 2e 44 | 72 61 77 50 69 63 74 75 |se 3.g.D|rawPictu|
|00002da0| 72 65 20 67 6f 7a 44 6e | 2c 20 30 2c 20 30 06 63 |re gozDn|, 0, 0.c|
|00002db0| 61 73 65 20 34 19 67 2e | 44 72 61 77 50 69 63 74 |ase 4.g.|DrawPict|
|00002dc0| 75 72 65 20 6d 79 64 44 | 6e 2c 20 30 2c 20 30 06 |ure mydD|n, 0, 0.|
|00002dd0| 63 61 73 65 20 35 1b 67 | 2e 44 72 61 77 50 69 63 |case 5.g|.DrawPic|
|00002de0| 74 75 72 65 20 6d 32 66 | 74 32 44 6e 2c 20 30 2c |ture m2f|t2Dn, 0,|
|00002df0| 20 30 06 63 61 73 65 20 | 36 1c 67 2e 44 72 61 77 | 0.case |6.g.Draw|
|00002e00| 50 69 63 74 75 72 65 20 | 59 65 6e 44 6f 6c 44 6e |Picture |YenDolDn|
|00002e10| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 37 1b 67 2e |, 0, 0.c|ase 7.g.|
|00002e20| 44 72 61 77 50 69 63 74 | 75 72 65 20 6b 67 6c 62 |DrawPict|ure kglb|
|00002e30| 73 44 6e 2c 20 30 2c 20 | 30 06 63 61 73 65 20 38 |sDn, 0, |0.case 8|
|00002e40| 1a 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 6b |.g.DrawP|icture k|
|00002e50| 6d 6d 69 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 |mmiDn, 0|, 0.case|
|00002e60| 20 39 1b 67 2e 44 72 61 | 77 50 69 63 74 75 72 65 | 9.g.Dra|wPicture|
|00002e70| 20 6d 32 54 73 75 44 6e | 2c 20 30 2c 20 30 0a 65 | m2TsuDn|, 0, 0.e|
|00002e80| 6e 64 20 73 65 6c 65 63 | 74 04 65 6c 73 65 11 73 |nd selec|t.else.s|
|00002e90| 65 6c 65 63 74 20 63 61 | 73 65 20 49 6e 64 65 78 |elect ca|se Index|
|00002ea0| 06 63 61 73 65 20 30 18 | 67 2e 44 72 61 77 50 69 |.case 0.|g.DrawPi|
|00002eb0| 63 74 75 72 65 20 43 46 | 55 70 2c 20 30 2c 20 30 |cture CF|Up, 0, 0|
|00002ec0| 06 63 61 73 65 20 31 1a | 67 2e 44 72 61 77 50 69 |.case 1.|g.DrawPi|
|00002ed0| 63 74 75 72 65 20 63 6d | 69 6e 55 70 2c 20 30 2c |cture cm|inUp, 0,|
|00002ee0| 20 30 06 63 61 73 65 20 | 32 1a 67 2e 44 72 61 77 | 0.case |2.g.Draw|
|00002ef0| 50 69 63 74 75 72 65 20 | 6c 67 61 6c 55 70 2c 20 |Picture |lgalUp, |
|00002f00| 30 2c 20 30 06 63 61 73 | 65 20 33 19 67 2e 44 72 |0, 0.cas|e 3.g.Dr|
|00002f10| 61 77 50 69 63 74 75 72 | 65 20 67 6f 7a 55 70 2c |awPictur|e gozUp,|
|00002f20| 20 30 2c 20 30 06 63 61 | 73 65 20 34 19 67 2e 44 | 0, 0.ca|se 4.g.D|
|00002f30| 72 61 77 50 69 63 74 75 | 72 65 20 6d 79 64 55 70 |rawPictu|re mydUp|
|00002f40| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 35 1b 67 2e |, 0, 0.c|ase 5.g.|
|00002f50| 44 72 61 77 50 69 63 74 | 75 72 65 20 6d 32 66 74 |DrawPict|ure m2ft|
|00002f60| 32 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 36 |2Up, 0, |0.case 6|
|00002f70| 1c 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 59 |.g.DrawP|icture Y|
|00002f80| 65 6e 44 6f 6c 55 70 2c | 20 30 2c 20 30 06 63 61 |enDolUp,| 0, 0.ca|
|00002f90| 73 65 20 37 1b 67 2e 44 | 72 61 77 50 69 63 74 75 |se 7.g.D|rawPictu|
|00002fa0| 72 65 20 6b 67 6c 62 73 | 55 70 2c 20 30 2c 20 30 |re kglbs|Up, 0, 0|
|00002fb0| 06 63 61 73 65 20 38 1a | 67 2e 44 72 61 77 50 69 |.case 8.|g.DrawPi|
|00002fc0| 63 74 75 72 65 20 6b 6d | 6d 69 55 70 2c 20 30 2c |cture km|miUp, 0,|
|00002fd0| 20 30 06 63 61 73 65 20 | 39 1b 67 2e 44 72 61 77 | 0.case |9.g.Draw|
|00002fe0| 50 69 63 74 75 72 65 20 | 6d 32 54 73 75 55 70 2c |Picture |m2TsuUp,|
|00002ff0| 20 30 2c 20 30 0a 65 6e | 64 20 73 65 6c 65 63 74 | 0, 0.en|d select|
|00003000| 06 65 6e 64 20 69 66 04 | 65 6c 73 65 15 69 66 20 |.end if.|else.if |
|00003010| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 74 68 |currentl|yDown th|
|00003020| 65 6e 11 73 65 6c 65 63 | 74 20 63 61 73 65 20 49 |en.selec|t case I|
|00003030| 6e 64 65 78 06 63 61 73 | 65 20 30 18 67 2e 44 72 |ndex.cas|e 0.g.Dr|
|00003040| 61 77 50 69 63 74 75 72 | 65 20 46 43 44 6e 2c 20 |awPictur|e FCDn, |
|00003050| 30 2c 20 30 06 63 61 73 | 65 20 31 1a 67 2e 44 72 |0, 0.cas|e 1.g.Dr|
|00003060| 61 77 50 69 63 74 75 72 | 65 20 69 6e 63 6d 44 6e |awPictur|e incmDn|
|00003070| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 32 1a 67 2e |, 0, 0.c|ase 2.g.|
|00003080| 44 72 61 77 50 69 63 74 | 75 72 65 20 67 61 6c 6c |DrawPict|ure gall|
|00003090| 44 6e 2c 20 30 2c 20 30 | 06 63 61 73 65 20 33 19 |Dn, 0, 0|.case 3.|
|000030a0| 67 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 6f 7a |g.DrawPi|cture oz|
|000030b0| 67 44 6e 2c 20 30 2c 20 | 30 06 63 61 73 65 20 34 |gDn, 0, |0.case 4|
|000030c0| 19 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 79 |.g.DrawP|icture y|
|000030d0| 64 6d 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |dmDn, 0,| 0.case |
|000030e0| 35 1b 67 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |5.g.Draw|Picture |
|000030f0| 66 74 32 6d 32 44 6e 2c | 20 30 2c 20 30 06 63 61 |ft2m2Dn,| 0, 0.ca|
|00003100| 73 65 20 36 1c 67 2e 44 | 72 61 77 50 69 63 74 75 |se 6.g.D|rawPictu|
|00003110| 72 65 20 44 6f 6c 59 65 | 6e 44 6e 2c 20 30 2c 20 |re DolYe|nDn, 0, |
|00003120| 30 06 63 61 73 65 20 37 | 1b 67 2e 44 72 61 77 50 |0.case 7|.g.DrawP|
|00003130| 69 63 74 75 72 65 20 6c | 62 73 6b 67 44 6e 2c 20 |icture l|bskgDn, |
|00003140| 30 2c 20 30 06 63 61 73 | 65 20 38 1a 67 2e 44 72 |0, 0.cas|e 8.g.Dr|
|00003150| 61 77 50 69 63 74 75 72 | 65 20 6d 69 6b 6d 44 6e |awPictur|e mikmDn|
|00003160| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 39 1b 67 2e |, 0, 0.c|ase 9.g.|
|00003170| 44 72 61 77 50 69 63 74 | 75 72 65 20 54 73 75 6d |DrawPict|ure Tsum|
|00003180| 32 44 6e 2c 20 30 2c 20 | 30 0a 65 6e 64 20 73 65 |2Dn, 0, |0.end se|
|00003190| 6c 65 63 74 04 65 6c 73 | 65 11 73 65 6c 65 63 74 |lect.els|e.select|
|000031a0| 20 63 61 73 65 20 49 6e | 64 65 78 06 63 61 73 65 | case In|dex.case|
|000031b0| 20 30 18 67 2e 44 72 61 | 77 50 69 63 74 75 72 65 | 0.g.Dra|wPicture|
|000031c0| 20 46 43 55 70 2c 20 30 | 2c 20 30 06 63 61 73 65 | FCUp, 0|, 0.case|
|000031d0| 20 31 1a 67 2e 44 72 61 | 77 50 69 63 74 75 72 65 | 1.g.Dra|wPicture|
|000031e0| 20 69 6e 63 6d 55 70 2c | 20 30 2c 20 30 06 63 61 | incmUp,| 0, 0.ca|
|000031f0| 73 65 20 32 1a 67 2e 44 | 72 61 77 50 69 63 74 75 |se 2.g.D|rawPictu|
|00003200| 72 65 20 67 61 6c 6c 55 | 70 2c 20 30 2c 20 30 06 |re gallU|p, 0, 0.|
|00003210| 63 61 73 65 20 33 19 67 | 2e 44 72 61 77 50 69 63 |case 3.g|.DrawPic|
|00003220| 74 75 72 65 20 6f 7a 67 | 55 70 2c 20 30 2c 20 30 |ture ozg|Up, 0, 0|
|00003230| 06 63 61 73 65 20 34 19 | 67 2e 44 72 61 77 50 69 |.case 4.|g.DrawPi|
|00003240| 63 74 75 72 65 20 79 64 | 6d 55 70 2c 20 30 2c 20 |cture yd|mUp, 0, |
|00003250| 30 06 63 61 73 65 20 35 | 1b 67 2e 44 72 61 77 50 |0.case 5|.g.DrawP|
|00003260| 69 63 74 75 72 65 20 66 | 74 32 6d 32 55 70 2c 20 |icture f|t2m2Up, |
|00003270| 30 2c 20 30 06 63 61 73 | 65 20 36 1c 67 2e 44 72 |0, 0.cas|e 6.g.Dr|
|00003280| 61 77 50 69 63 74 75 72 | 65 20 44 6f 6c 59 65 6e |awPictur|e DolYen|
|00003290| 55 70 2c 20 30 2c 20 30 | 06 63 61 73 65 20 37 1b |Up, 0, 0|.case 7.|
|000032a0| 67 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 6c 62 |g.DrawPi|cture lb|
|000032b0| 73 6b 67 55 70 2c 20 30 | 2c 20 30 06 63 61 73 65 |skgUp, 0|, 0.case|
|000032c0| 20 38 1a 67 2e 44 72 61 | 77 50 69 63 74 75 72 65 | 8.g.Dra|wPicture|
|000032d0| 20 6d 69 6b 6d 55 70 2c | 20 30 2c 20 30 06 63 61 | mikmUp,| 0, 0.ca|
|000032e0| 73 65 20 39 1b 67 2e 44 | 72 61 77 50 69 63 74 75 |se 9.g.D|rawPictu|
|000032f0| 72 65 20 54 73 75 6d 32 | 55 70 2c 20 30 2c 20 30 |re Tsum2|Up, 0, 0|
|00003300| 0a 65 6e 64 20 73 65 6c | 65 63 74 06 65 6e 64 20 |.end sel|ect.end |
|00003310| 69 66 06 65 6e 64 20 69 | 66 07 45 6e 64 20 53 75 |if.end i|f.End Su|
|00003320| 62 00 00 07 00 00 a4 01 | 06 43 61 6e 76 61 73 00 |b.......|.Canvas.|
|00003330| 00 00 00 04 07 4d 6f 75 | 73 65 55 70 04 06 04 06 |.....Mou|seUp....|
|00003340| 09 27 53 75 62 20 4d 6f | 75 73 65 55 70 28 58 20 |.'Sub Mo|useUp(X |
|00003350| 41 73 20 49 6e 74 65 67 | 65 72 2c 20 59 20 41 73 |As Integ|er, Y As|
|00003360| 20 49 6e 74 65 67 65 72 | 29 15 69 66 20 63 75 72 | Integer|).if cur|
|00003370| 72 65 6e 74 6c 79 44 6f | 77 6e 20 74 68 65 6e 1f |rentlyDo|wn then.|
|00003380| 69 66 20 69 6e 73 74 72 | 28 6f 70 65 72 61 6e 64 |if instr|(operand|
|00003390| 2c 20 22 2e 22 29 20 3d | 20 30 20 74 68 65 6e 11 |, ".") =| 0 then.|
|000033a0| 4e 75 6d 62 65 72 43 6c | 69 63 6b 65 64 20 22 2e |NumberCl|icked ".|
|000033b0| 22 06 65 6e 64 20 69 66 | 27 42 74 6e 44 6f 74 2e |".end if|'BtnDot.|
|000033c0| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|000033d0| 74 75 72 65 20 44 6f 74 | 55 70 2c 20 30 2c 20 30 |ture Dot|Up, 0, 0|
|000033e0| 15 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 3d |.current|lyDown =|
|000033f0| 20 66 61 6c 73 65 06 65 | 6e 64 20 69 66 07 45 6e | false.e|nd if.En|
|00003400| 64 20 53 75 62 09 4d 6f | 75 73 65 44 72 61 67 09 |d Sub.Mo|useDrag.|
|00003410| 1f 09 1f 0d 29 53 75 62 | 20 4d 6f 75 73 65 44 72 |....)Sub| MouseDr|
|00003420| 61 67 28 58 20 41 73 20 | 49 6e 74 65 67 65 72 2c |ag(X As |Integer,|
|00003430| 20 59 20 41 73 20 49 6e | 74 65 67 65 72 29 ae 01 | Y As In|teger)..|
|00003440| 69 66 20 58 20 3c 20 42 | 74 6e 44 6f 74 2e 6c 65 |if X < B|tnDot.le|
|00003450| 66 74 20 6f 72 20 78 20 | 3e 20 42 74 6e 44 6f 74 |ft or x |> BtnDot|
|00003460| 2e 6c 65 66 74 20 2b 20 | 42 74 6e 44 6f 74 2e 77 |.left + |BtnDot.w|
|00003470| 69 64 74 68 20 6f 72 20 | 79 20 3c 20 42 74 6e 44 |idth or |y < BtnD|
|00003480| 6f 74 2e 74 6f 70 20 6f | 72 20 79 20 3e 3d 20 42 |ot.top o|r y >= B|
|00003490| 74 6e 44 6f 74 2e 74 6f | 70 20 2b 20 42 74 6e 44 |tnDot.to|p + BtnD|
|000034a0| 6f 74 2e 68 65 69 67 68 | 74 20 74 68 65 6e 15 69 |ot.heigh|t then.i|
|000034b0| 66 20 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |f curren|tlyDown |
|000034c0| 74 68 65 6e 15 63 75 72 | 72 65 6e 74 6c 79 44 6f |then.cur|rentlyDo|
|000034d0| 77 6e 20 3d 20 66 61 6c | 73 65 27 42 74 6e 44 6f |wn = fal|se'BtnDo|
|000034e0| 74 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |t.graphi|cs.DrawP|
|000034f0| 69 63 74 75 72 65 20 44 | 6f 74 55 70 2c 20 30 2c |icture D|otUp, 0,|
|00003500| 20 30 06 65 6e 64 20 69 | 66 04 65 6c 73 65 19 69 | 0.end i|f.else.i|
|00003510| 66 20 6e 6f 74 20 63 75 | 72 72 65 6e 74 6c 79 44 |f not cu|rrentlyD|
|00003520| 6f 77 6e 20 74 68 65 6e | 14 63 75 72 72 65 6e 74 |own then|.current|
|00003530| 6c 79 44 6f 77 6e 20 3d | 20 74 72 75 65 27 42 74 |lyDown =| true'Bt|
|00003540| 6e 44 6f 74 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |nDot.gra|phics.Dr|
|00003550| 61 77 50 69 63 74 75 72 | 65 20 44 6f 74 44 6e 2c |awPictur|e DotDn,|
|00003560| 20 30 2c 20 30 06 65 6e | 64 20 69 66 06 65 6e 64 | 0, 0.en|d if.end|
|00003570| 20 69 66 07 45 6e 64 20 | 53 75 62 09 4d 6f 75 73 | if.End |Sub.Mous|
|00003580| 65 44 6f 77 6e 02 1f 02 | 1f 05 39 46 75 6e 63 74 |eDown...|..9Funct|
|00003590| 69 6f 6e 20 4d 6f 75 73 | 65 44 6f 77 6e 28 58 20 |ion Mous|eDown(X |
|000035a0| 41 73 20 49 6e 74 65 67 | 65 72 2c 20 59 20 41 73 |As Integ|er, Y As|
|000035b0| 20 49 6e 74 65 67 65 72 | 29 20 41 73 20 42 6f 6f | Integer|) As Boo|
|000035c0| 6c 65 61 6e 14 63 75 72 | 72 65 6e 74 6c 79 44 6f |lean.cur|rentlyDo|
|000035d0| 77 6e 20 3d 20 74 72 75 | 65 27 42 74 6e 44 6f 74 |wn = tru|e'BtnDot|
|000035e0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|000035f0| 63 74 75 72 65 20 44 6f | 74 44 6e 2c 20 30 2c 20 |cture Do|tDn, 0, |
|00003600| 30 0b 72 65 74 75 72 6e | 20 74 72 75 65 0c 45 6e |0.return| true.En|
|00003610| 64 20 46 75 6e 63 74 69 | 6f 6e 05 50 61 69 6e 74 |d Functi|on.Paint|
|00003620| 04 11 04 11 07 18 53 75 | 62 20 50 61 69 6e 74 28 |......Su|b Paint(|
|00003630| 67 20 41 73 20 47 72 61 | 70 68 69 63 73 29 15 69 |g As Gra|phics).i|
|00003640| 66 20 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |f curren|tlyDown |
|00003650| 74 68 65 6e 19 67 2e 44 | 72 61 77 50 69 63 74 75 |then.g.D|rawPictu|
|00003660| 72 65 20 44 6f 74 44 6e | 2c 20 30 2c 20 30 04 65 |re DotDn|, 0, 0.e|
|00003670| 6c 73 65 19 67 2e 44 72 | 61 77 50 69 63 74 75 72 |lse.g.Dr|awPictur|
|00003680| 65 20 44 6f 74 55 70 2c | 20 30 2c 20 30 06 65 6e |e DotUp,| 0, 0.en|
|00003690| 64 20 69 66 07 45 6e 64 | 20 53 75 62 00 00 07 00 |d if.End| Sub....|
|000036a0| 00 a4 01 06 43 61 6e 76 | 61 73 00 00 00 00 04 07 |....Canv|as......|
|000036b0| 4d 6f 75 73 65 55 70 01 | 00 1c 06 1e 39 53 75 62 |MouseUp.|....9Sub|
|000036c0| 20 4d 6f 75 73 65 55 70 | 28 49 6e 64 65 78 20 41 | MouseUp|(Index A|
|000036d0| 73 20 49 6e 74 65 67 65 | 72 2c 20 58 20 41 73 20 |s Intege|r, X As |
|000036e0| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|000036f0| 74 65 67 65 72 29 15 69 | 66 20 63 75 72 72 65 6e |teger).i|f curren|
|00003700| 74 6c 79 44 6f 77 6e 20 | 74 68 65 6e 23 69 66 20 |tlyDown |then#if |
|00003710| 6f 70 65 72 61 6e 64 20 | 3c 3e 20 22 22 20 6f 72 |operand |<> "" or|
|00003720| 20 49 6e 64 65 78 20 3c | 3e 20 30 20 74 68 65 6e | Index <|> 0 then|
|00003730| 18 4e 75 6d 62 65 72 43 | 6c 69 63 6b 65 64 20 73 |.NumberC|licked s|
|00003740| 74 72 28 49 6e 64 65 78 | 29 06 65 6e 64 20 69 66 |tr(Index|).end if|
|00003750| 11 73 65 6c 65 63 74 20 | 63 61 73 65 20 49 6e 64 |.select |case Ind|
|00003760| 65 78 06 63 61 73 65 20 | 30 2f 4e 75 6d 62 65 72 |ex.case |0/Number|
|00003770| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00003780| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 5a 65 72 |.DrawPic|ture Zer|
|00003790| 6f 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 31 |oUp, 0, |0.case 1|
|000037a0| 2e 4e 75 6d 62 65 72 28 | 49 6e 64 65 78 29 2e 67 |.Number(|Index).g|
|000037b0| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|000037c0| 75 72 65 20 4f 6e 65 55 | 70 2c 20 30 2c 20 30 06 |ure OneU|p, 0, 0.|
|000037d0| 63 61 73 65 20 32 2e 4e | 75 6d 62 65 72 28 49 6e |case 2.N|umber(In|
|000037e0| 64 65 78 29 2e 67 72 61 | 70 68 69 63 73 2e 44 72 |dex).gra|phics.Dr|
|000037f0| 61 77 50 69 63 74 75 72 | 65 20 54 77 6f 55 70 2c |awPictur|e TwoUp,|
|00003800| 20 30 2c 20 30 06 63 61 | 73 65 20 33 30 4e 75 6d | 0, 0.ca|se 30Num|
|00003810| 62 65 72 28 49 6e 64 65 | 78 29 2e 67 72 61 70 68 |ber(Inde|x).graph|
|00003820| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|00003830| 54 68 72 65 65 55 70 2c | 20 30 2c 20 30 06 63 61 |ThreeUp,| 0, 0.ca|
|00003840| 73 65 20 34 2f 4e 75 6d | 62 65 72 28 49 6e 64 65 |se 4/Num|ber(Inde|
|00003850| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|00003860| 50 69 63 74 75 72 65 20 | 46 6f 75 72 55 70 2c 20 |Picture |FourUp, |
|00003870| 30 2c 20 30 06 63 61 73 | 65 20 35 2f 4e 75 6d 62 |0, 0.cas|e 5/Numb|
|00003880| 65 72 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |er(Index|).graphi|
|00003890| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 46 |cs.DrawP|icture F|
|000038a0| 69 76 65 55 70 2c 20 30 | 2c 20 30 06 63 61 73 65 |iveUp, 0|, 0.case|
|000038b0| 20 36 2e 4e 75 6d 62 65 | 72 28 49 6e 64 65 78 29 | 6.Numbe|r(Index)|
|000038c0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|000038d0| 63 74 75 72 65 20 53 69 | 78 55 70 2c 20 30 2c 20 |cture Si|xUp, 0, |
|000038e0| 30 06 63 61 73 65 20 37 | 30 4e 75 6d 62 65 72 28 |0.case 7|0Number(|
|000038f0| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00003900| 44 72 61 77 50 69 63 74 | 75 72 65 20 53 65 76 65 |DrawPict|ure Seve|
|00003910| 6e 55 70 2c 20 30 2c 20 | 30 06 63 61 73 65 20 38 |nUp, 0, |0.case 8|
|00003920| 30 4e 75 6d 62 65 72 28 | 49 6e 64 65 78 29 2e 67 |0Number(|Index).g|
|00003930| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00003940| 75 72 65 20 45 69 67 68 | 74 55 70 2c 20 30 2c 20 |ure Eigh|tUp, 0, |
|00003950| 30 06 63 61 73 65 20 39 | 2f 4e 75 6d 62 65 72 28 |0.case 9|/Number(|
|00003960| 49 6e 64 65 78 29 2e 67 | 72 61 70 68 69 63 73 2e |Index).g|raphics.|
|00003970| 44 72 61 77 50 69 63 74 | 75 72 65 20 4e 69 6e 65 |DrawPict|ure Nine|
|00003980| 55 70 2c 20 30 2c 20 30 | 0a 65 6e 64 20 73 65 6c |Up, 0, 0|.end sel|
|00003990| 65 63 74 15 63 75 72 72 | 65 6e 74 6c 79 44 6f 77 |ect.curr|entlyDow|
|000039a0| 6e 20 3d 20 66 61 6c 73 | 65 06 65 6e 64 20 69 66 |n = fals|e.end if|
|000039b0| 07 45 6e 64 20 53 75 62 | 09 4d 6f 75 73 65 44 72 |.End Sub|.MouseDr|
|000039c0| 61 67 01 03 01 03 37 3b | 53 75 62 20 4d 6f 75 73 |ag....7;|Sub Mous|
|000039d0| 65 44 72 61 67 28 49 6e | 64 65 78 20 41 73 20 49 |eDrag(In|dex As I|
|000039e0| 6e 74 65 67 65 72 2c 20 | 58 20 41 73 20 49 6e 74 |nteger, |X As Int|
|000039f0| 65 67 65 72 2c 20 59 20 | 41 73 20 49 6e 74 65 67 |eger, Y |As Integ|
|00003a00| 65 72 29 98 02 69 66 20 | 58 20 3c 20 4e 75 6d 62 |er)..if |X < Numb|
|00003a10| 65 72 28 49 6e 64 65 78 | 29 2e 6c 65 66 74 20 6f |er(Index|).left o|
|00003a20| 72 20 78 20 3e 20 4e 75 | 6d 62 65 72 28 49 6e 64 |r x > Nu|mber(Ind|
|00003a30| 65 78 29 2e 6c 65 66 74 | 20 2b 20 4e 75 6d 62 65 |ex).left| + Numbe|
|00003a40| 72 28 49 6e 64 65 78 29 | 2e 77 69 64 74 68 20 6f |r(Index)|.width o|
|00003a50| 72 20 79 20 3c 20 4e 75 | 6d 62 65 72 28 49 6e 64 |r y < Nu|mber(Ind|
|00003a60| 65 78 29 2e 74 6f 70 20 | 6f 72 20 79 20 3e 3d 20 |ex).top |or y >= |
|00003a70| 4e 75 6d 62 65 72 28 49 | 6e 64 65 78 29 2e 74 6f |Number(I|ndex).to|
|00003a80| 70 20 2b 20 4e 75 6d 62 | 65 72 28 49 6e 64 65 78 |p + Numb|er(Index|
|00003a90| 29 2e 68 65 69 67 68 74 | 20 74 68 65 6e 15 69 66 |).height| then.if|
|00003aa0| 20 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 74 | current|lyDown t|
|00003ab0| 68 65 6e 15 63 75 72 72 | 65 6e 74 6c 79 44 6f 77 |hen.curr|entlyDow|
|00003ac0| 6e 20 3d 20 66 61 6c 73 | 65 11 73 65 6c 65 63 74 |n = fals|e.select|
|00003ad0| 20 63 61 73 65 20 49 6e | 64 65 78 06 63 61 73 65 | case In|dex.case|
|00003ae0| 20 30 2f 4e 75 6d 62 65 | 72 28 49 6e 64 65 78 29 | 0/Numbe|r(Index)|
|00003af0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00003b00| 63 74 75 72 65 20 5a 65 | 72 6f 55 70 2c 20 30 2c |cture Ze|roUp, 0,|
|00003b10| 20 30 06 63 61 73 65 20 | 31 2e 4e 75 6d 62 65 72 | 0.case |1.Number|
|00003b20| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00003b30| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 4f 6e 65 |.DrawPic|ture One|
|00003b40| 55 70 2c 20 30 2c 20 30 | 06 63 61 73 65 20 32 2e |Up, 0, 0|.case 2.|
|00003b50| 4e 75 6d 62 65 72 28 49 | 6e 64 65 78 29 2e 67 72 |Number(I|ndex).gr|
|00003b60| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00003b70| 72 65 20 54 77 6f 55 70 | 2c 20 30 2c 20 30 06 63 |re TwoUp|, 0, 0.c|
|00003b80| 61 73 65 20 33 30 4e 75 | 6d 62 65 72 28 49 6e 64 |ase 30Nu|mber(Ind|
|00003b90| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|00003ba0| 77 50 69 63 74 75 72 65 | 20 54 68 72 65 65 55 70 |wPicture| ThreeUp|
|00003bb0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 34 2f 4e 75 |, 0, 0.c|ase 4/Nu|
|00003bc0| 6d 62 65 72 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |mber(Ind|ex).grap|
|00003bd0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00003be0| 20 46 6f 75 72 55 70 2c | 20 30 2c 20 30 06 63 61 | FourUp,| 0, 0.ca|
|00003bf0| 73 65 20 35 2f 4e 75 6d | 62 65 72 28 49 6e 64 65 |se 5/Num|ber(Inde|
|00003c00| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|00003c10| 50 69 63 74 75 72 65 20 | 46 69 76 65 55 70 2c 20 |Picture |FiveUp, |
|00003c20| 30 2c 20 30 06 63 61 73 | 65 20 36 2e 4e 75 6d 62 |0, 0.cas|e 6.Numb|
|00003c30| 65 72 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |er(Index|).graphi|
|00003c40| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 53 |cs.DrawP|icture S|
|00003c50| 69 78 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |ixUp, 0,| 0.case |
|00003c60| 37 30 4e 75 6d 62 65 72 | 28 49 6e 64 65 78 29 2e |70Number|(Index).|
|00003c70| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00003c80| 74 75 72 65 20 53 65 76 | 65 6e 55 70 2c 20 30 2c |ture Sev|enUp, 0,|
|00003c90| 20 30 06 63 61 73 65 20 | 38 30 4e 75 6d 62 65 72 | 0.case |80Number|
|00003ca0| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00003cb0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 45 69 67 |.DrawPic|ture Eig|
|00003cc0| 68 74 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |htUp, 0,| 0.case |
|00003cd0| 39 2f 4e 75 6d 62 65 72 | 28 49 6e 64 65 78 29 2e |9/Number|(Index).|
|00003ce0| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00003cf0| 74 75 72 65 20 4e 69 6e | 65 55 70 2c 20 30 2c 20 |ture Nin|eUp, 0, |
|00003d00| 30 0a 65 6e 64 20 73 65 | 6c 65 63 74 06 65 6e 64 |0.end se|lect.end|
|00003d10| 20 69 66 04 65 6c 73 65 | 19 69 66 20 6e 6f 74 20 | if.else|.if not |
|00003d20| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 74 68 |currentl|yDown th|
|00003d30| 65 6e 14 63 75 72 72 65 | 6e 74 6c 79 44 6f 77 6e |en.curre|ntlyDown|
|00003d40| 20 3d 20 74 72 75 65 11 | 73 65 6c 65 63 74 20 63 | = true.|select c|
|00003d50| 61 73 65 20 49 6e 64 65 | 78 06 63 61 73 65 20 30 |ase Inde|x.case 0|
|00003d60| 2f 4e 75 6d 62 65 72 28 | 49 6e 64 65 78 29 2e 67 |/Number(|Index).g|
|00003d70| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00003d80| 75 72 65 20 5a 65 72 6f | 44 6e 2c 20 30 2c 20 30 |ure Zero|Dn, 0, 0|
|00003d90| 06 63 61 73 65 20 31 2e | 4e 75 6d 62 65 72 28 49 |.case 1.|Number(I|
|00003da0| 6e 64 65 78 29 2e 67 72 | 61 70 68 69 63 73 2e 44 |ndex).gr|aphics.D|
|00003db0| 72 61 77 50 69 63 74 75 | 72 65 20 4f 6e 65 44 6e |rawPictu|re OneDn|
|00003dc0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 32 2e 4e 75 |, 0, 0.c|ase 2.Nu|
|00003dd0| 6d 62 65 72 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |mber(Ind|ex).grap|
|00003de0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00003df0| 20 54 77 6f 44 6e 2c 20 | 30 2c 20 30 06 63 61 73 | TwoDn, |0, 0.cas|
|00003e00| 65 20 33 30 4e 75 6d 62 | 65 72 28 49 6e 64 65 78 |e 30Numb|er(Index|
|00003e10| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00003e20| 69 63 74 75 72 65 20 54 | 68 72 65 65 44 6e 2c 20 |icture T|hreeDn, |
|00003e30| 30 2c 20 30 06 63 61 73 | 65 20 34 2f 4e 75 6d 62 |0, 0.cas|e 4/Numb|
|00003e40| 65 72 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |er(Index|).graphi|
|00003e50| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 46 |cs.DrawP|icture F|
|00003e60| 6f 75 72 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 |ourDn, 0|, 0.case|
|00003e70| 20 35 2f 4e 75 6d 62 65 | 72 28 49 6e 64 65 78 29 | 5/Numbe|r(Index)|
|00003e80| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00003e90| 63 74 75 72 65 20 46 69 | 76 65 44 6e 2c 20 30 2c |cture Fi|veDn, 0,|
|00003ea0| 20 30 06 63 61 73 65 20 | 36 2e 4e 75 6d 62 65 72 | 0.case |6.Number|
|00003eb0| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00003ec0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 53 69 78 |.DrawPic|ture Six|
|00003ed0| 44 6e 2c 20 30 2c 20 30 | 06 63 61 73 65 20 37 30 |Dn, 0, 0|.case 70|
|00003ee0| 4e 75 6d 62 65 72 28 49 | 6e 64 65 78 29 2e 67 72 |Number(I|ndex).gr|
|00003ef0| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00003f00| 72 65 20 53 65 76 65 6e | 44 6e 2c 20 30 2c 20 30 |re Seven|Dn, 0, 0|
|00003f10| 06 63 61 73 65 20 38 30 | 4e 75 6d 62 65 72 28 49 |.case 80|Number(I|
|00003f20| 6e 64 65 78 29 2e 67 72 | 61 70 68 69 63 73 2e 44 |ndex).gr|aphics.D|
|00003f30| 72 61 77 50 69 63 74 75 | 72 65 20 45 69 67 68 74 |rawPictu|re Eight|
|00003f40| 44 6e 2c 20 30 2c 20 30 | 06 63 61 73 65 20 39 2f |Dn, 0, 0|.case 9/|
|00003f50| 4e 75 6d 62 65 72 28 49 | 6e 64 65 78 29 2e 67 72 |Number(I|ndex).gr|
|00003f60| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00003f70| 72 65 20 4e 69 6e 65 44 | 6e 2c 20 30 2c 20 30 0a |re NineD|n, 0, 0.|
|00003f80| 65 6e 64 20 73 65 6c 65 | 63 74 06 65 6e 64 20 69 |end sele|ct.end i|
|00003f90| 66 06 65 6e 64 20 69 66 | 07 45 6e 64 20 53 75 62 |f.end if|.End Sub|
|00003fa0| 09 4d 6f 75 73 65 44 6f | 77 6e 01 00 01 00 1a 8b |.MouseDo|wn......|
|00003fb0| 01 46 75 6e 63 74 69 6f | 6e 20 4d 6f 75 73 65 44 |.Functio|n MouseD|
|00003fc0| 6f 77 6e 28 49 6e 64 65 | 78 20 41 73 20 49 6e 74 |own(Inde|x As Int|
|00003fd0| 65 67 65 72 2c 20 58 20 | 41 73 20 49 6e 74 65 67 |eger, X |As Integ|
|00003fe0| 65 72 2c 20 59 20 41 73 | 20 49 6e 74 65 67 65 72 |er, Y As| Integer|
|00003ff0| 29 20 41 73 20 42 6f 6f | 6c 65 61 6e 14 63 75 72 |) As Boo|lean.cur|
|00004000| 72 65 6e 74 6c 79 44 6f | 77 6e 20 3d 20 74 72 75 |rentlyDo|wn = tru|
|00004010| 65 11 73 65 6c 65 63 74 | 20 63 61 73 65 20 49 6e |e.select| case In|
|00004020| 64 65 78 06 63 61 73 65 | 20 30 2f 4e 75 6d 62 65 |dex.case| 0/Numbe|
|00004030| 72 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |r(Index)|.graphic|
|00004040| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 5a 65 |s.DrawPi|cture Ze|
|00004050| 72 6f 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |roDn, 0,| 0.case |
|00004060| 31 2e 4e 75 6d 62 65 72 | 28 49 6e 64 65 78 29 2e |1.Number|(Index).|
|00004070| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00004080| 74 75 72 65 20 4f 6e 65 | 44 6e 2c 20 30 2c 20 30 |ture One|Dn, 0, 0|
|00004090| 06 63 61 73 65 20 32 2e | 4e 75 6d 62 65 72 28 49 |.case 2.|Number(I|
|000040a0| 6e 64 65 78 29 2e 67 72 | 61 70 68 69 63 73 2e 44 |ndex).gr|aphics.D|
|000040b0| 72 61 77 50 69 63 74 75 | 72 65 20 54 77 6f 44 6e |rawPictu|re TwoDn|
|000040c0| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 33 30 4e 75 |, 0, 0.c|ase 30Nu|
|000040d0| 6d 62 65 72 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |mber(Ind|ex).grap|
|000040e0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|000040f0| 20 54 68 72 65 65 44 6e | 2c 20 30 2c 20 30 06 63 | ThreeDn|, 0, 0.c|
|00004100| 61 73 65 20 34 2f 4e 75 | 6d 62 65 72 28 49 6e 64 |ase 4/Nu|mber(Ind|
|00004110| 65 78 29 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |ex).grap|hics.Dra|
|00004120| 77 50 69 63 74 75 72 65 | 20 46 6f 75 72 44 6e 2c |wPicture| FourDn,|
|00004130| 20 30 2c 20 30 06 63 61 | 73 65 20 35 2f 4e 75 6d | 0, 0.ca|se 5/Num|
|00004140| 62 65 72 28 49 6e 64 65 | 78 29 2e 67 72 61 70 68 |ber(Inde|x).graph|
|00004150| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|00004160| 46 69 76 65 44 6e 2c 20 | 30 2c 20 30 06 63 61 73 |FiveDn, |0, 0.cas|
|00004170| 65 20 36 2e 4e 75 6d 62 | 65 72 28 49 6e 64 65 78 |e 6.Numb|er(Index|
|00004180| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00004190| 69 63 74 75 72 65 20 53 | 69 78 44 6e 2c 20 30 2c |icture S|ixDn, 0,|
|000041a0| 20 30 06 63 61 73 65 20 | 37 30 4e 75 6d 62 65 72 | 0.case |70Number|
|000041b0| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|000041c0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 53 65 76 |.DrawPic|ture Sev|
|000041d0| 65 6e 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |enDn, 0,| 0.case |
|000041e0| 38 30 4e 75 6d 62 65 72 | 28 49 6e 64 65 78 29 2e |80Number|(Index).|
|000041f0| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00004200| 74 75 72 65 20 45 69 67 | 68 74 44 6e 2c 20 30 2c |ture Eig|htDn, 0,|
|00004210| 20 30 06 63 61 73 65 20 | 39 2f 4e 75 6d 62 65 72 | 0.case |9/Number|
|00004220| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00004230| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 4e 69 6e |.DrawPic|ture Nin|
|00004240| 65 44 6e 2c 20 30 2c 20 | 30 0a 65 6e 64 20 73 65 |eDn, 0, |0.end se|
|00004250| 6c 65 63 74 0b 72 65 74 | 75 72 6e 20 74 72 75 65 |lect.ret|urn true|
|00004260| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 05 50 61 |.End Fun|ction.Pa|
|00004270| 69 6e 74 01 00 01 00 31 | 2a 53 75 62 20 50 61 69 |int....1|*Sub Pai|
|00004280| 6e 74 28 49 6e 64 65 78 | 20 41 73 20 49 6e 74 65 |nt(Index| As Inte|
|00004290| 67 65 72 2c 20 67 20 41 | 73 20 47 72 61 70 68 69 |ger, g A|s Graphi|
|000042a0| 63 73 29 15 69 66 20 63 | 75 72 72 65 6e 74 6c 79 |cs).if c|urrently|
|000042b0| 44 6f 77 6e 20 74 68 65 | 6e 11 73 65 6c 65 63 74 |Down the|n.select|
|000042c0| 20 63 61 73 65 20 49 6e | 64 65 78 06 63 61 73 65 | case In|dex.case|
|000042d0| 20 30 1a 67 2e 44 72 61 | 77 50 69 63 74 75 72 65 | 0.g.Dra|wPicture|
|000042e0| 20 5a 65 72 6f 44 6e 2c | 20 30 2c 20 30 06 63 61 | ZeroDn,| 0, 0.ca|
|000042f0| 73 65 20 31 19 67 2e 44 | 72 61 77 50 69 63 74 75 |se 1.g.D|rawPictu|
|00004300| 72 65 20 4f 6e 65 44 6e | 2c 20 30 2c 20 30 06 63 |re OneDn|, 0, 0.c|
|00004310| 61 73 65 20 32 19 67 2e | 44 72 61 77 50 69 63 74 |ase 2.g.|DrawPict|
|00004320| 75 72 65 20 54 77 6f 44 | 6e 2c 20 30 2c 20 30 06 |ure TwoD|n, 0, 0.|
|00004330| 63 61 73 65 20 33 1b 67 | 2e 44 72 61 77 50 69 63 |case 3.g|.DrawPic|
|00004340| 74 75 72 65 20 54 68 72 | 65 65 44 6e 2c 20 30 2c |ture Thr|eeDn, 0,|
|00004350| 20 30 06 63 61 73 65 20 | 34 1a 67 2e 44 72 61 77 | 0.case |4.g.Draw|
|00004360| 50 69 63 74 75 72 65 20 | 46 6f 75 72 44 6e 2c 20 |Picture |FourDn, |
|00004370| 30 2c 20 30 06 63 61 73 | 65 20 35 1a 67 2e 44 72 |0, 0.cas|e 5.g.Dr|
|00004380| 61 77 50 69 63 74 75 72 | 65 20 46 69 76 65 44 6e |awPictur|e FiveDn|
|00004390| 2c 20 30 2c 20 30 06 63 | 61 73 65 20 36 19 67 2e |, 0, 0.c|ase 6.g.|
|000043a0| 44 72 61 77 50 69 63 74 | 75 72 65 20 53 69 78 44 |DrawPict|ure SixD|
|000043b0| 6e 2c 20 30 2c 20 30 06 | 63 61 73 65 20 37 1b 67 |n, 0, 0.|case 7.g|
|000043c0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 53 65 76 |.DrawPic|ture Sev|
|000043d0| 65 6e 44 6e 2c 20 30 2c | 20 30 06 63 61 73 65 20 |enDn, 0,| 0.case |
|000043e0| 38 1b 67 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |8.g.Draw|Picture |
|000043f0| 45 69 67 68 74 44 6e 2c | 20 30 2c 20 30 06 63 61 |EightDn,| 0, 0.ca|
|00004400| 73 65 20 39 1a 67 2e 44 | 72 61 77 50 69 63 74 75 |se 9.g.D|rawPictu|
|00004410| 72 65 20 4e 69 6e 65 44 | 6e 2c 20 30 2c 20 30 0a |re NineD|n, 0, 0.|
|00004420| 65 6e 64 20 73 65 6c 65 | 63 74 04 65 6c 73 65 11 |end sele|ct.else.|
|00004430| 73 65 6c 65 63 74 20 63 | 61 73 65 20 49 6e 64 65 |select c|ase Inde|
|00004440| 78 06 63 61 73 65 20 30 | 1a 67 2e 44 72 61 77 50 |x.case 0|.g.DrawP|
|00004450| 69 63 74 75 72 65 20 5a | 65 72 6f 55 70 2c 20 30 |icture Z|eroUp, 0|
|00004460| 2c 20 30 06 63 61 73 65 | 20 31 19 67 2e 44 72 61 |, 0.case| 1.g.Dra|
|00004470| 77 50 69 63 74 75 72 65 | 20 4f 6e 65 55 70 2c 20 |wPicture| OneUp, |
|00004480| 30 2c 20 30 06 63 61 73 | 65 20 32 19 67 2e 44 72 |0, 0.cas|e 2.g.Dr|
|00004490| 61 77 50 69 63 74 75 72 | 65 20 54 77 6f 55 70 2c |awPictur|e TwoUp,|
|000044a0| 20 30 2c 20 30 06 63 61 | 73 65 20 33 1b 67 2e 44 | 0, 0.ca|se 3.g.D|
|000044b0| 72 61 77 50 69 63 74 75 | 72 65 20 54 68 72 65 65 |rawPictu|re Three|
|000044c0| 55 70 2c 20 30 2c 20 30 | 06 63 61 73 65 20 34 1a |Up, 0, 0|.case 4.|
|000044d0| 67 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 46 6f |g.DrawPi|cture Fo|
|000044e0| 75 72 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |urUp, 0,| 0.case |
|000044f0| 35 1a 67 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |5.g.Draw|Picture |
|00004500| 46 69 76 65 55 70 2c 20 | 30 2c 20 30 06 63 61 73 |FiveUp, |0, 0.cas|
|00004510| 65 20 36 19 67 2e 44 72 | 61 77 50 69 63 74 75 72 |e 6.g.Dr|awPictur|
|00004520| 65 20 53 69 78 55 70 2c | 20 30 2c 20 30 06 63 61 |e SixUp,| 0, 0.ca|
|00004530| 73 65 20 37 1b 67 2e 44 | 72 61 77 50 69 63 74 75 |se 7.g.D|rawPictu|
|00004540| 72 65 20 53 65 76 65 6e | 55 70 2c 20 30 2c 20 30 |re Seven|Up, 0, 0|
|00004550| 06 63 61 73 65 20 38 1b | 67 2e 44 72 61 77 50 69 |.case 8.|g.DrawPi|
|00004560| 63 74 75 72 65 20 45 69 | 67 68 74 55 70 2c 20 30 |cture Ei|ghtUp, 0|
|00004570| 2c 20 30 06 63 61 73 65 | 20 39 1a 67 2e 44 72 61 |, 0.case| 9.g.Dra|
|00004580| 77 50 69 63 74 75 72 65 | 20 4e 69 6e 65 55 70 2c |wPicture| NineUp,|
|00004590| 20 30 2c 20 30 0a 65 6e | 64 20 73 65 6c 65 63 74 | 0, 0.en|d select|
|000045a0| 06 65 6e 64 20 69 66 07 | 45 6e 64 20 53 75 62 00 |.end if.|End Sub.|
|000045b0| 00 07 00 00 a4 01 06 43 | 61 6e 76 61 73 00 00 00 |.......C|anvas...|
|000045c0| 00 04 05 50 61 69 6e 74 | 04 14 04 14 07 18 53 75 |...Paint|......Su|
|000045d0| 62 20 50 61 69 6e 74 28 | 67 20 41 73 20 47 72 61 |b Paint(|g As Gra|
|000045e0| 70 68 69 63 73 29 15 69 | 66 20 63 75 72 72 65 6e |phics).i|f curren|
|000045f0| 74 6c 79 44 6f 77 6e 20 | 74 68 65 6e 1c 67 2e 44 |tlyDown |then.g.D|
|00004600| 72 61 77 50 69 63 74 75 | 72 65 20 45 71 75 61 6c |rawPictu|re Equal|
|00004610| 73 44 6e 2c 20 30 2c 20 | 30 04 65 6c 73 65 1c 67 |sDn, 0, |0.else.g|
|00004620| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 45 71 75 |.DrawPic|ture Equ|
|00004630| 61 6c 73 55 70 2c 20 30 | 2c 20 30 06 65 6e 64 20 |alsUp, 0|, 0.end |
|00004640| 69 66 07 45 6e 64 20 53 | 75 62 09 4d 6f 75 73 65 |if.End S|ub.Mouse|
|00004650| 44 6f 77 6e 02 25 02 25 | 05 39 46 75 6e 63 74 69 |Down.%.%|.9Functi|
|00004660| 6f 6e 20 4d 6f 75 73 65 | 44 6f 77 6e 28 58 20 41 |on Mouse|Down(X A|
|00004670| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00004680| 49 6e 74 65 67 65 72 29 | 20 41 73 20 42 6f 6f 6c |Integer)| As Bool|
|00004690| 65 61 6e 14 63 75 72 72 | 65 6e 74 6c 79 44 6f 77 |ean.curr|entlyDow|
|000046a0| 6e 20 3d 20 74 72 75 65 | 2d 42 74 6e 45 71 75 61 |n = true|-BtnEqua|
|000046b0| 6c 73 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |ls.graph|ics.Draw|
|000046c0| 50 69 63 74 75 72 65 20 | 45 71 75 61 6c 73 44 6e |Picture |EqualsDn|
|000046d0| 2c 20 30 2c 20 30 0b 72 | 65 74 75 72 6e 20 74 72 |, 0, 0.r|eturn tr|
|000046e0| 75 65 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 09 |ue.End F|unction.|
|000046f0| 4d 6f 75 73 65 44 72 61 | 67 09 25 09 25 0d 29 53 |MouseDra|g.%.%.)S|
|00004700| 75 62 20 4d 6f 75 73 65 | 44 72 61 67 28 58 20 41 |ub Mouse|Drag(X A|
|00004710| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00004720| 49 6e 74 65 67 65 72 29 | 80 02 69 66 20 58 20 3c |Integer)|..if X <|
|00004730| 20 42 74 6e 45 71 75 61 | 6c 73 2e 6c 65 66 74 20 | BtnEqua|ls.left |
|00004740| 6f 72 20 78 20 3e 20 42 | 74 6e 45 71 75 61 6c 73 |or x > B|tnEquals|
|00004750| 2e 6c 65 66 74 20 2b 20 | 42 74 6e 45 71 75 61 6c |.left + |BtnEqual|
|00004760| 73 2e 77 69 64 74 68 20 | 6f 72 20 79 20 3c 20 42 |s.width |or y < B|
|00004770| 74 6e 45 71 75 61 6c 73 | 2e 74 6f 70 20 6f 72 20 |tnEquals|.top or |
|00004780| 79 20 3e 3d 20 42 74 6e | 45 71 75 61 6c 73 2e 74 |y >= Btn|Equals.t|
|00004790| 6f 70 20 2b 20 42 74 6e | 45 71 75 61 6c 73 2e 68 |op + Btn|Equals.h|
|000047a0| 65 69 67 68 74 20 74 68 | 65 6e 15 69 66 20 63 75 |eight th|en.if cu|
|000047b0| 72 72 65 6e 74 6c 79 44 | 6f 77 6e 20 74 68 65 6e |rrentlyD|own then|
|000047c0| 15 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 3d |.current|lyDown =|
|000047d0| 20 66 61 6c 73 65 2d 42 | 74 6e 45 71 75 61 6c 73 | false-B|tnEquals|
|000047e0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|000047f0| 63 74 75 72 65 20 45 71 | 75 61 6c 73 55 70 2c 20 |cture Eq|ualsUp, |
|00004800| 30 2c 20 30 06 65 6e 64 | 20 69 66 04 65 6c 73 65 |0, 0.end| if.else|
|00004810| 19 69 66 20 6e 6f 74 20 | 63 75 72 72 65 6e 74 6c |.if not |currentl|
|00004820| 79 44 6f 77 6e 20 74 68 | 65 6e 14 63 75 72 72 65 |yDown th|en.curre|
|00004830| 6e 74 6c 79 44 6f 77 6e | 20 3d 20 74 72 75 65 2d |ntlyDown| = true-|
|00004840| 42 74 6e 45 71 75 61 6c | 73 2e 67 72 61 70 68 69 |BtnEqual|s.graphi|
|00004850| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 45 |cs.DrawP|icture E|
|00004860| 71 75 61 6c 73 44 6e 2c | 20 30 2c 20 30 06 65 6e |qualsDn,| 0, 0.en|
|00004870| 64 20 69 66 06 65 6e 64 | 20 69 66 07 45 6e 64 20 |d if.end| if.End |
|00004880| 53 75 62 07 4d 6f 75 73 | 65 55 70 05 25 05 25 09 |Sub.Mous|eUp.%.%.|
|00004890| 27 53 75 62 20 4d 6f 75 | 73 65 55 70 28 58 20 41 |'Sub Mou|seUp(X A|
|000048a0| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|000048b0| 49 6e 74 65 67 65 72 29 | 15 69 66 20 63 75 72 72 |Integer)|.if curr|
|000048c0| 65 6e 74 6c 79 44 6f 77 | 6e 20 74 68 65 6e 8c 01 |entlyDow|n then..|
|000048d0| 69 66 20 6f 70 65 72 61 | 74 6f 72 20 3d 20 22 2b |if opera|tor = "+|
|000048e0| 22 20 6f 72 20 6f 70 65 | 72 61 74 6f 72 20 3d 20 |" or ope|rator = |
|000048f0| 22 2d 22 20 6f 72 20 6f | 70 65 72 61 74 6f 72 20 |"-" or o|perator |
|00004900| 3d 20 22 2a 22 20 6f 72 | 20 6f 70 65 72 61 74 6f |= "*" or| operato|
|00004910| 72 20 3d 20 22 2f 22 20 | 74 68 65 6e 0d 41 70 70 |r = "/" |then.App|
|00004920| 6c 79 4f 70 65 72 61 74 | 6f 72 06 65 6e 64 20 69 |lyOperat|or.end i|
|00004930| 66 2d 42 74 6e 45 71 75 | 61 6c 73 2e 67 72 61 70 |f-BtnEqu|als.grap|
|00004940| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00004950| 20 45 71 75 61 6c 73 55 | 70 2c 20 30 2c 20 30 15 | EqualsU|p, 0, 0.|
|00004960| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 3d 20 |currentl|yDown = |
|00004970| 66 61 6c 73 65 06 65 6e | 64 20 69 66 07 45 6e 64 |false.en|d if.End|
|00004980| 20 53 75 62 00 00 07 00 | 00 a4 01 06 43 61 6e 76 | Sub....|....Canv|
|00004990| 61 73 00 00 00 00 04 07 | 4d 6f 75 73 65 55 70 01 |as......|MouseUp.|
|000049a0| 00 05 06 07 27 53 75 62 | 20 4d 6f 75 73 65 55 70 |....'Sub| MouseUp|
|000049b0| 28 58 20 41 73 20 49 6e | 74 65 67 65 72 2c 20 59 |(X As In|teger, Y|
|000049c0| 20 41 73 20 49 6e 74 65 | 67 65 72 29 15 69 66 20 | As Inte|ger).if |
|000049d0| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 74 68 |currentl|yDown th|
|000049e0| 65 6e 04 51 75 69 74 28 | 50 6f 77 65 72 2e 67 72 |en.Quit(|Power.gr|
|000049f0| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00004a00| 72 65 20 50 6f 77 65 72 | 4f 6e 2c 20 30 2c 20 30 |re Power|On, 0, 0|
|00004a10| 15 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 3d |.current|lyDown =|
|00004a20| 20 66 61 6c 73 65 06 65 | 6e 64 20 69 66 07 45 6e | false.e|nd if.En|
|00004a30| 64 20 53 75 62 09 4d 6f | 75 73 65 44 72 61 67 01 |d Sub.Mo|useDrag.|
|00004a40| 00 0b 06 0d 29 53 75 62 | 20 4d 6f 75 73 65 44 72 |....)Sub| MouseDr|
|00004a50| 61 67 28 58 20 41 73 20 | 49 6e 74 65 67 65 72 2c |ag(X As |Integer,|
|00004a60| 20 59 20 41 73 20 49 6e | 74 65 67 65 72 29 a8 01 | Y As In|teger)..|
|00004a70| 69 66 20 58 20 3c 20 50 | 6f 77 65 72 2e 6c 65 66 |if X < P|ower.lef|
|00004a80| 74 20 6f 72 20 78 20 3e | 20 50 6f 77 65 72 2e 6c |t or x >| Power.l|
|00004a90| 65 66 74 20 2b 20 50 6f | 77 65 72 2e 77 69 64 74 |eft + Po|wer.widt|
|00004aa0| 68 20 6f 72 20 79 20 3c | 20 50 6f 77 65 72 2e 74 |h or y <| Power.t|
|00004ab0| 6f 70 20 6f 72 20 79 20 | 3e 3d 20 50 6f 77 65 72 |op or y |>= Power|
|00004ac0| 2e 74 6f 70 20 2b 20 50 | 6f 77 65 72 2e 68 65 69 |.top + P|ower.hei|
|00004ad0| 67 68 74 20 74 68 65 6e | 15 69 66 20 63 75 72 72 |ght then|.if curr|
|00004ae0| 65 6e 74 6c 79 44 6f 77 | 6e 20 74 68 65 6e 15 63 |entlyDow|n then.c|
|00004af0| 75 72 72 65 6e 74 6c 79 | 44 6f 77 6e 20 3d 20 66 |urrently|Down = f|
|00004b00| 61 6c 73 65 28 50 6f 77 | 65 72 2e 67 72 61 70 68 |alse(Pow|er.graph|
|00004b10| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|00004b20| 50 6f 77 65 72 4f 6e 2c | 20 30 2c 20 30 06 65 6e |PowerOn,| 0, 0.en|
|00004b30| 64 20 69 66 04 65 6c 73 | 65 19 69 66 20 6e 6f 74 |d if.els|e.if not|
|00004b40| 20 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 74 | current|lyDown t|
|00004b50| 68 65 6e 14 63 75 72 72 | 65 6e 74 6c 79 44 6f 77 |hen.curr|entlyDow|
|00004b60| 6e 20 3d 20 74 72 75 65 | 29 50 6f 77 65 72 2e 67 |n = true|)Power.g|
|00004b70| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00004b80| 75 72 65 20 50 6f 77 65 | 72 4f 66 66 2c 20 30 2c |ure Powe|rOff, 0,|
|00004b90| 20 30 06 65 6e 64 20 69 | 66 06 65 6e 64 20 69 66 | 0.end i|f.end if|
|00004ba0| 07 45 6e 64 20 53 75 62 | 09 4d 6f 75 73 65 44 6f |.End Sub|.MouseDo|
|00004bb0| 77 6e 01 00 03 0b 05 39 | 46 75 6e 63 74 69 6f 6e |wn.....9|Function|
|00004bc0| 20 4d 6f 75 73 65 44 6f | 77 6e 28 58 20 41 73 20 | MouseDo|wn(X As |
|00004bd0| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|00004be0| 74 65 67 65 72 29 20 41 | 73 20 42 6f 6f 6c 65 61 |teger) A|s Boolea|
|00004bf0| 6e 14 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |n.curren|tlyDown |
|00004c00| 3d 20 74 72 75 65 29 50 | 6f 77 65 72 2e 67 72 61 |= true)P|ower.gra|
|00004c10| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|00004c20| 65 20 50 6f 77 65 72 4f | 66 66 2c 20 30 2c 20 30 |e PowerO|ff, 0, 0|
|00004c30| 0b 72 65 74 75 72 6e 20 | 74 72 75 65 0c 45 6e 64 |.return |true.End|
|00004c40| 20 46 75 6e 63 74 69 6f | 6e 05 50 61 69 6e 74 01 | Functio|n.Paint.|
|00004c50| 00 05 06 07 18 53 75 62 | 20 50 61 69 6e 74 28 67 |.....Sub| Paint(g|
|00004c60| 20 41 73 20 47 72 61 70 | 68 69 63 73 29 15 69 66 | As Grap|hics).if|
|00004c70| 20 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 74 | current|lyDown t|
|00004c80| 68 65 6e 1c 67 2e 44 72 | 61 77 50 69 63 74 75 72 |hen.g.Dr|awPictur|
|00004c90| 65 20 50 6f 77 65 72 4f | 66 66 2c 20 30 2c 20 30 |e PowerO|ff, 0, 0|
|00004ca0| 04 65 6c 73 65 1b 67 2e | 44 72 61 77 50 69 63 74 |.else.g.|DrawPict|
|00004cb0| 75 72 65 20 50 6f 77 65 | 72 4f 6e 2c 20 30 2c 20 |ure Powe|rOn, 0, |
|00004cc0| 30 06 65 6e 64 20 69 66 | 07 45 6e 64 20 53 75 62 |0.end if|.End Sub|
|00004cd0| 00 00 07 00 00 a4 01 06 | 43 61 6e 76 61 73 00 00 |........|Canvas..|
|00004ce0| 00 00 04 07 4d 6f 75 73 | 65 55 70 09 00 09 00 21 |....Mous|eUp....!|
|00004cf0| 27 53 75 62 20 4d 6f 75 | 73 65 55 70 28 58 20 41 |'Sub Mou|seUp(X A|
|00004d00| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00004d10| 49 6e 74 65 67 65 72 29 | 15 69 66 20 63 75 72 72 |Integer)|.if curr|
|00004d20| 65 6e 74 6c 79 44 6f 77 | 6e 20 74 68 65 6e 17 69 |entlyDow|n then.i|
|00004d30| 66 20 73 65 63 6f 6e 64 | 46 75 6e 63 74 69 6f 6e |f second|Function|
|00004d40| 73 20 74 68 65 6e 17 73 | 65 63 6f 6e 64 46 75 6e |s then.s|econdFun|
|00004d50| 63 74 69 6f 6e 73 20 3d | 20 66 61 6c 73 65 04 65 |ctions =| false.e|
|00004d60| 6c 73 65 16 73 65 63 6f | 6e 64 46 75 6e 63 74 69 |lse.seco|ndFuncti|
|00004d70| 6f 6e 73 20 3d 20 74 72 | 75 65 06 65 6e 64 20 69 |ons = tr|ue.end i|
|00004d80| 66 15 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |f.curren|tlyDown |
|00004d90| 3d 20 66 61 6c 73 65 06 | 65 6e 64 20 69 66 00 2a |= false.|end if.*|
|00004da0| 2f 2f 20 20 49 20 74 72 | 69 65 64 20 74 6f 20 69 |// I tr|ied to i|
|00004db0| 6e 69 74 20 74 68 65 20 | 43 6f 6e 76 4b 65 79 20 |nit the |ConvKey |
|00004dc0| 61 72 72 61 79 20 77 69 | 74 68 00 14 2f 2f 20 20 |array wi|th..// |
|00004dd0| 64 69 6d 20 69 20 61 73 | 20 69 6e 74 65 67 65 72 |dim i as| integer|
|00004de0| 12 2f 2f 20 20 66 6f 72 | 20 69 20 3d 20 30 20 74 |.// for| i = 0 t|
|00004df0| 6f 20 39 16 2f 2f 20 20 | 43 6f 6e 76 4b 65 79 28 |o 9.// |ConvKey(|
|00004e00| 69 29 2e 52 65 66 72 65 | 73 68 0e 2f 2f 20 20 6e |i).Refre|sh.// n|
|00004e10| 65 78 74 20 20 2f 2f 20 | 69 00 2e 2f 2f 20 20 62 |ext // |i..// b|
|00004e20| 75 74 20 69 74 20 64 69 | 64 6e 27 74 20 77 6f 72 |ut it di|dn't wor|
|00004e30| 6b 20 71 75 69 74 65 20 | 74 68 65 20 77 61 79 20 |k quite |the way |
|00004e40| 49 20 77 61 6e 74 65 64 | 2e 2e 2f 2f 20 20 54 68 |I wanted|..// Th|
|00004e50| 65 72 65 20 77 61 73 20 | 74 6f 6f 20 6d 75 63 68 |ere was |too much|
|00004e60| 20 66 6c 69 63 6b 65 72 | 2e 20 57 6f 75 6c 64 20 | flicker|. Would |
|00004e70| 74 68 69 73 20 62 65 20 | 32 2f 2f 20 20 64 6f 6e |this be |2// don|
|00004e80| 65 20 77 69 74 68 20 6f | 66 66 2d 73 63 72 65 65 |e with o|ff-scree|
|00004e90| 6e 20 64 72 61 77 69 6e | 67 20 6f 72 20 74 68 61 |n drawin|g or tha|
|00004ea0| 74 20 6f 6e 6c 79 20 66 | 6f 72 20 0c 2f 2f 20 20 |t only f|or .// |
|00004eb0| 73 70 72 69 74 65 73 3f | 00 12 43 6f 6e 76 4b 65 |sprites?|..ConvKe|
|00004ec0| 79 28 30 29 2e 52 65 66 | 72 65 73 68 12 43 6f 6e |y(0).Ref|resh.Con|
|00004ed0| 76 4b 65 79 28 31 29 2e | 52 65 66 72 65 73 68 12 |vKey(1).|Refresh.|
|00004ee0| 43 6f 6e 76 4b 65 79 28 | 32 29 2e 52 65 66 72 65 |ConvKey(|2).Refre|
|00004ef0| 73 68 12 43 6f 6e 76 4b | 65 79 28 33 29 2e 52 65 |sh.ConvK|ey(3).Re|
|00004f00| 66 72 65 73 68 12 43 6f | 6e 76 4b 65 79 28 34 29 |fresh.Co|nvKey(4)|
|00004f10| 2e 52 65 66 72 65 73 68 | 12 43 6f 6e 76 4b 65 79 |.Refresh|.ConvKey|
|00004f20| 28 35 29 2e 52 65 66 72 | 65 73 68 12 43 6f 6e 76 |(5).Refr|esh.Conv|
|00004f30| 4b 65 79 28 36 29 2e 52 | 65 66 72 65 73 68 12 43 |Key(6).R|efresh.C|
|00004f40| 6f 6e 76 4b 65 79 28 37 | 29 2e 52 65 66 72 65 73 |onvKey(7|).Refres|
|00004f50| 68 12 43 6f 6e 76 4b 65 | 79 28 38 29 2e 52 65 66 |h.ConvKe|y(8).Ref|
|00004f60| 72 65 73 68 12 43 6f 6e | 76 4b 65 79 28 39 29 2e |resh.Con|vKey(9).|
|00004f70| 52 65 66 72 65 73 68 07 | 45 6e 64 20 53 75 62 09 |Refresh.|End Sub.|
|00004f80| 4d 6f 75 73 65 44 72 61 | 67 11 06 11 06 15 29 53 |MouseDra|g.....)S|
|00004f90| 75 62 20 4d 6f 75 73 65 | 44 72 61 67 28 58 20 41 |ub Mouse|Drag(X A|
|00004fa0| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00004fb0| 49 6e 74 65 67 65 72 29 | 80 02 69 66 20 78 20 3c |Integer)|..if x <|
|00004fc0| 20 53 65 63 6f 6e 64 4b | 65 79 2e 6c 65 66 74 20 | SecondK|ey.left |
|00004fd0| 6f 72 20 78 20 3e 20 53 | 65 63 6f 6e 64 4b 65 79 |or x > S|econdKey|
|00004fe0| 2e 6c 65 66 74 20 2b 20 | 53 65 63 6f 6e 64 4b 65 |.left + |SecondKe|
|00004ff0| 79 2e 77 69 64 74 68 20 | 6f 72 20 79 20 3c 20 53 |y.width |or y < S|
|00005000| 65 63 6f 6e 64 4b 65 79 | 2e 74 6f 70 20 6f 72 20 |econdKey|.top or |
|00005010| 79 20 3e 3d 20 53 65 63 | 6f 6e 64 4b 65 79 2e 74 |y >= Sec|ondKey.t|
|00005020| 6f 70 20 2b 20 53 65 63 | 6f 6e 64 4b 65 79 2e 68 |op + Sec|ondKey.h|
|00005030| 65 69 67 68 74 20 74 68 | 65 6e 15 69 66 20 63 75 |eight th|en.if cu|
|00005040| 72 72 65 6e 74 6c 79 44 | 6f 77 6e 20 74 68 65 6e |rrentlyD|own then|
|00005050| 15 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 3d |.current|lyDown =|
|00005060| 20 66 61 6c 73 65 17 69 | 66 20 73 65 63 6f 6e 64 | false.i|f second|
|00005070| 46 75 6e 63 74 69 6f 6e | 73 20 74 68 65 6e 2d 53 |Function|s then-S|
|00005080| 65 63 6f 6e 64 4b 65 79 | 2e 67 72 61 70 68 69 63 |econdKey|.graphic|
|00005090| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 53 65 |s.DrawPi|cture Se|
|000050a0| 63 6f 6e 64 44 6e 2c 20 | 30 2c 20 30 04 65 6c 73 |condDn, |0, 0.els|
|000050b0| 65 2d 53 65 63 6f 6e 64 | 4b 65 79 2e 67 72 61 70 |e-Second|Key.grap|
|000050c0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|000050d0| 20 53 65 63 6f 6e 64 55 | 70 2c 20 30 2c 20 30 06 | SecondU|p, 0, 0.|
|000050e0| 65 6e 64 20 69 66 06 65 | 6e 64 20 69 66 04 65 6c |end if.e|nd if.el|
|000050f0| 73 65 19 69 66 20 6e 6f | 74 20 63 75 72 72 65 6e |se.if no|t curren|
|00005100| 74 6c 79 44 6f 77 6e 20 | 74 68 65 6e 14 63 75 72 |tlyDown |then.cur|
|00005110| 72 65 6e 74 6c 79 44 6f | 77 6e 20 3d 20 74 72 75 |rentlyDo|wn = tru|
|00005120| 65 17 69 66 20 73 65 63 | 6f 6e 64 46 75 6e 63 74 |e.if sec|ondFunct|
|00005130| 69 6f 6e 73 20 74 68 65 | 6e 2d 53 65 63 6f 6e 64 |ions the|n-Second|
|00005140| 4b 65 79 2e 67 72 61 70 | 68 69 63 73 2e 44 72 61 |Key.grap|hics.Dra|
|00005150| 77 50 69 63 74 75 72 65 | 20 53 65 63 6f 6e 64 44 |wPicture| SecondD|
|00005160| 6e 2c 20 30 2c 20 30 04 | 65 6c 73 65 2d 53 65 63 |n, 0, 0.|else-Sec|
|00005170| 6f 6e 64 4b 65 79 2e 67 | 72 61 70 68 69 63 73 2e |ondKey.g|raphics.|
|00005180| 44 72 61 77 50 69 63 74 | 75 72 65 20 53 65 63 6f |DrawPict|ure Seco|
|00005190| 6e 64 55 70 2c 20 30 2c | 20 30 06 65 6e 64 20 69 |ndUp, 0,| 0.end i|
|000051a0| 66 06 65 6e 64 20 69 66 | 06 65 6e 64 20 69 66 07 |f.end if|.end if.|
|000051b0| 45 6e 64 20 53 75 62 09 | 4d 6f 75 73 65 44 6f 77 |End Sub.|MouseDow|
|000051c0| 6e 01 00 01 00 09 39 46 | 75 6e 63 74 69 6f 6e 20 |n.....9F|unction |
|000051d0| 4d 6f 75 73 65 44 6f 77 | 6e 28 58 20 41 73 20 49 |MouseDow|n(X As I|
|000051e0| 6e 74 65 67 65 72 2c 20 | 59 20 41 73 20 49 6e 74 |nteger, |Y As Int|
|000051f0| 65 67 65 72 29 20 41 73 | 20 42 6f 6f 6c 65 61 6e |eger) As| Boolean|
|00005200| 14 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 3d |.current|lyDown =|
|00005210| 20 74 72 75 65 1b 69 66 | 20 6e 6f 74 20 73 65 63 | true.if| not sec|
|00005220| 6f 6e 64 46 75 6e 63 74 | 69 6f 6e 73 20 74 68 65 |ondFunct|ions the|
|00005230| 6e 2d 53 65 63 6f 6e 64 | 4b 65 79 2e 67 72 61 70 |n-Second|Key.grap|
|00005240| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00005250| 20 53 65 63 6f 6e 64 44 | 6e 2c 20 30 2c 20 30 04 | SecondD|n, 0, 0.|
|00005260| 65 6c 73 65 2d 53 65 63 | 6f 6e 64 4b 65 79 2e 67 |else-Sec|ondKey.g|
|00005270| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00005280| 75 72 65 20 53 65 63 6f | 6e 64 55 70 2c 20 30 2c |ure Seco|ndUp, 0,|
|00005290| 20 30 06 65 6e 64 20 69 | 66 0b 72 65 74 75 72 6e | 0.end i|f.return|
|000052a0| 20 74 72 75 65 0c 45 6e | 64 20 46 75 6e 63 74 69 | true.En|d Functi|
|000052b0| 6f 6e 05 50 61 69 6e 74 | 05 06 01 00 07 18 53 75 |on.Paint|......Su|
|000052c0| 62 20 50 61 69 6e 74 28 | 67 20 41 73 20 47 72 61 |b Paint(|g As Gra|
|000052d0| 70 68 69 63 73 29 17 69 | 66 20 73 65 63 6f 6e 64 |phics).i|f second|
|000052e0| 46 75 6e 63 74 69 6f 6e | 73 20 74 68 65 6e 1c 67 |Function|s then.g|
|000052f0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 53 65 63 |.DrawPic|ture Sec|
|00005300| 6f 6e 64 44 6e 2c 20 30 | 2c 20 30 04 65 6c 73 65 |ondDn, 0|, 0.else|
|00005310| 1c 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 53 |.g.DrawP|icture S|
|00005320| 65 63 6f 6e 64 55 70 2c | 20 30 2c 20 30 06 65 6e |econdUp,| 0, 0.en|
|00005330| 64 20 69 66 07 45 6e 64 | 20 53 75 62 00 00 07 00 |d if.End| Sub....|
|00005340| 00 a4 01 06 43 61 6e 76 | 61 73 00 00 00 00 04 07 |....Canv|as......|
|00005350| 4d 6f 75 73 65 55 70 01 | 00 05 06 07 27 53 75 62 |MouseUp.|....'Sub|
|00005360| 20 4d 6f 75 73 65 55 70 | 28 58 20 41 73 20 49 6e | MouseUp|(X As In|
|00005370| 74 65 67 65 72 2c 20 59 | 20 41 73 20 49 6e 74 65 |teger, Y| As Inte|
|00005380| 67 65 72 29 15 69 66 20 | 63 75 72 72 65 6e 74 6c |ger).if |currentl|
|00005390| 79 44 6f 77 6e 20 74 68 | 65 6e 05 43 6c 65 61 72 |yDown th|en.Clear|
|000053a0| 2b 42 74 6e 43 6c 65 61 | 72 2e 67 72 61 70 68 69 |+BtnClea|r.graphi|
|000053b0| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 43 |cs.DrawP|icture C|
|000053c0| 6c 65 61 72 55 70 2c 20 | 30 2c 20 30 15 63 75 72 |learUp, |0, 0.cur|
|000053d0| 72 65 6e 74 6c 79 44 6f | 77 6e 20 3d 20 66 61 6c |rentlyDo|wn = fal|
|000053e0| 73 65 06 65 6e 64 20 69 | 66 07 45 6e 64 20 53 75 |se.end i|f.End Su|
|000053f0| 62 09 4d 6f 75 73 65 44 | 72 61 67 01 00 01 00 0d |b.MouseD|rag.....|
|00005400| 29 53 75 62 20 4d 6f 75 | 73 65 44 72 61 67 28 58 |)Sub Mou|seDrag(X|
|00005410| 20 41 73 20 49 6e 74 65 | 67 65 72 2c 20 59 20 41 | As Inte|ger, Y A|
|00005420| 73 20 49 6e 74 65 67 65 | 72 29 ba 01 69 66 20 58 |s Intege|r)..if X|
|00005430| 20 3c 20 42 74 6e 43 6c | 65 61 72 2e 6c 65 66 74 | < BtnCl|ear.left|
|00005440| 20 6f 72 20 78 20 3e 20 | 42 74 6e 43 6c 65 61 72 | or x > |BtnClear|
|00005450| 2e 6c 65 66 74 20 2b 20 | 42 74 6e 43 6c 65 61 72 |.left + |BtnClear|
|00005460| 2e 77 69 64 74 68 20 6f | 72 20 79 20 3c 20 42 74 |.width o|r y < Bt|
|00005470| 6e 43 6c 65 61 72 2e 74 | 6f 70 20 6f 72 20 79 20 |nClear.t|op or y |
|00005480| 3e 3d 20 42 74 6e 43 6c | 65 61 72 2e 74 6f 70 20 |>= BtnCl|ear.top |
|00005490| 2b 20 42 74 6e 43 6c 65 | 61 72 2e 68 65 69 67 68 |+ BtnCle|ar.heigh|
|000054a0| 74 20 74 68 65 6e 15 69 | 66 20 63 75 72 72 65 6e |t then.i|f curren|
|000054b0| 74 6c 79 44 6f 77 6e 20 | 74 68 65 6e 15 63 75 72 |tlyDown |then.cur|
|000054c0| 72 65 6e 74 6c 79 44 6f | 77 6e 20 3d 20 66 61 6c |rentlyDo|wn = fal|
|000054d0| 73 65 2b 42 74 6e 43 6c | 65 61 72 2e 67 72 61 70 |se+BtnCl|ear.grap|
|000054e0| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|000054f0| 20 43 6c 65 61 72 55 70 | 2c 20 30 2c 20 30 06 65 | ClearUp|, 0, 0.e|
|00005500| 6e 64 20 69 66 04 65 6c | 73 65 19 69 66 20 6e 6f |nd if.el|se.if no|
|00005510| 74 20 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |t curren|tlyDown |
|00005520| 74 68 65 6e 14 63 75 72 | 72 65 6e 74 6c 79 44 6f |then.cur|rentlyDo|
|00005530| 77 6e 20 3d 20 74 72 75 | 65 2b 42 74 6e 43 6c 65 |wn = tru|e+BtnCle|
|00005540| 61 72 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |ar.graph|ics.Draw|
|00005550| 50 69 63 74 75 72 65 20 | 43 6c 65 61 72 44 6e 2c |Picture |ClearDn,|
|00005560| 20 30 2c 20 30 06 65 6e | 64 20 69 66 06 65 6e 64 | 0, 0.en|d if.end|
|00005570| 20 69 66 07 45 6e 64 20 | 53 75 62 09 4d 6f 75 73 | if.End |Sub.Mous|
|00005580| 65 44 6f 77 6e 01 00 03 | 0b 05 39 46 75 6e 63 74 |eDown...|..9Funct|
|00005590| 69 6f 6e 20 4d 6f 75 73 | 65 44 6f 77 6e 28 58 20 |ion Mous|eDown(X |
|000055a0| 41 73 20 49 6e 74 65 67 | 65 72 2c 20 59 20 41 73 |As Integ|er, Y As|
|000055b0| 20 49 6e 74 65 67 65 72 | 29 20 41 73 20 42 6f 6f | Integer|) As Boo|
|000055c0| 6c 65 61 6e 14 63 75 72 | 72 65 6e 74 6c 79 44 6f |lean.cur|rentlyDo|
|000055d0| 77 6e 20 3d 20 74 72 75 | 65 2b 42 74 6e 43 6c 65 |wn = tru|e+BtnCle|
|000055e0| 61 72 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |ar.graph|ics.Draw|
|000055f0| 50 69 63 74 75 72 65 20 | 43 6c 65 61 72 44 6e 2c |Picture |ClearDn,|
|00005600| 20 30 2c 20 30 0b 72 65 | 74 75 72 6e 20 74 72 75 | 0, 0.re|turn tru|
|00005610| 65 0c 45 6e 64 20 46 75 | 6e 63 74 69 6f 6e 05 50 |e.End Fu|nction.P|
|00005620| 61 69 6e 74 01 00 05 06 | 07 18 53 75 62 20 50 61 |aint....|..Sub Pa|
|00005630| 69 6e 74 28 67 20 41 73 | 20 47 72 61 70 68 69 63 |int(g As| Graphic|
|00005640| 73 29 15 69 66 20 63 75 | 72 72 65 6e 74 6c 79 44 |s).if cu|rrentlyD|
|00005650| 6f 77 6e 20 74 68 65 6e | 1b 67 2e 44 72 61 77 50 |own then|.g.DrawP|
|00005660| 69 63 74 75 72 65 20 43 | 6c 65 61 72 44 6e 2c 20 |icture C|learDn, |
|00005670| 30 2c 20 30 04 65 6c 73 | 65 1b 67 2e 44 72 61 77 |0, 0.els|e.g.Draw|
|00005680| 50 69 63 74 75 72 65 20 | 43 6c 65 61 72 55 70 2c |Picture |ClearUp,|
|00005690| 20 30 2c 20 30 06 65 6e | 64 20 69 66 07 45 6e 64 | 0, 0.en|d if.End|
|000056a0| 20 53 75 62 00 00 07 00 | 00 a4 01 06 43 61 6e 76 | Sub....|....Canv|
|000056b0| 61 73 00 00 00 00 04 05 | 50 61 69 6e 74 04 12 04 |as......|Paint...|
|000056c0| 12 07 18 53 75 62 20 50 | 61 69 6e 74 28 67 20 41 |...Sub P|aint(g A|
|000056d0| 73 20 47 72 61 70 68 69 | 63 73 29 15 69 66 20 63 |s Graphi|cs).if c|
|000056e0| 75 72 72 65 6e 74 6c 79 | 44 6f 77 6e 20 74 68 65 |urrently|Down the|
|000056f0| 6e 1a 67 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |n.g.Draw|Picture |
|00005700| 42 6b 73 70 44 6e 2c 20 | 30 2c 20 30 04 65 6c 73 |BkspDn, |0, 0.els|
|00005710| 65 1a 67 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |e.g.Draw|Picture |
|00005720| 42 6b 73 70 55 70 2c 20 | 30 2c 20 30 06 65 6e 64 |BkspUp, |0, 0.end|
|00005730| 20 69 66 07 45 6e 64 20 | 53 75 62 09 4d 6f 75 73 | if.End |Sub.Mous|
|00005740| 65 44 6f 77 6e 02 20 02 | 20 05 39 46 75 6e 63 74 |eDown. .| .9Funct|
|00005750| 69 6f 6e 20 4d 6f 75 73 | 65 44 6f 77 6e 28 58 20 |ion Mous|eDown(X |
|00005760| 41 73 20 49 6e 74 65 67 | 65 72 2c 20 59 20 41 73 |As Integ|er, Y As|
|00005770| 20 49 6e 74 65 67 65 72 | 29 20 41 73 20 42 6f 6f | Integer|) As Boo|
|00005780| 6c 65 61 6e 14 63 75 72 | 72 65 6e 74 6c 79 44 6f |lean.cur|rentlyDo|
|00005790| 77 6e 20 3d 20 74 72 75 | 65 28 42 74 6e 44 65 6c |wn = tru|e(BtnDel|
|000057a0| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|000057b0| 63 74 75 72 65 20 42 6b | 73 70 44 6e 2c 20 30 2c |cture Bk|spDn, 0,|
|000057c0| 20 30 0b 72 65 74 75 72 | 6e 20 74 72 75 65 0c 45 | 0.retur|n true.E|
|000057d0| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 09 4d 6f 75 73 |nd Funct|ion.Mous|
|000057e0| 65 44 72 61 67 09 20 09 | 20 0d 29 53 75 62 20 4d |eDrag. .| .)Sub M|
|000057f0| 6f 75 73 65 44 72 61 67 | 28 58 20 41 73 20 49 6e |ouseDrag|(X As In|
|00005800| 74 65 67 65 72 2c 20 59 | 20 41 73 20 49 6e 74 65 |teger, Y| As Inte|
|00005810| 67 65 72 29 ae 01 69 66 | 20 58 20 3c 20 42 74 6e |ger)..if| X < Btn|
|00005820| 44 65 6c 2e 6c 65 66 74 | 20 6f 72 20 78 20 3e 20 |Del.left| or x > |
|00005830| 42 74 6e 44 65 6c 2e 6c | 65 66 74 20 2b 20 42 74 |BtnDel.l|eft + Bt|
|00005840| 6e 44 65 6c 2e 77 69 64 | 74 68 20 6f 72 20 79 20 |nDel.wid|th or y |
|00005850| 3c 20 42 74 6e 44 65 6c | 2e 74 6f 70 20 6f 72 20 |< BtnDel|.top or |
|00005860| 79 20 3e 3d 20 42 74 6e | 44 65 6c 2e 74 6f 70 20 |y >= Btn|Del.top |
|00005870| 2b 20 42 74 6e 44 65 6c | 2e 68 65 69 67 68 74 20 |+ BtnDel|.height |
|00005880| 74 68 65 6e 15 69 66 20 | 63 75 72 72 65 6e 74 6c |then.if |currentl|
|00005890| 79 44 6f 77 6e 20 74 68 | 65 6e 15 63 75 72 72 65 |yDown th|en.curre|
|000058a0| 6e 74 6c 79 44 6f 77 6e | 20 3d 20 66 61 6c 73 65 |ntlyDown| = false|
|000058b0| 28 42 74 6e 44 65 6c 2e | 67 72 61 70 68 69 63 73 |(BtnDel.|graphics|
|000058c0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 42 6b 73 |.DrawPic|ture Bks|
|000058d0| 70 55 70 2c 20 30 2c 20 | 30 06 65 6e 64 20 69 66 |pUp, 0, |0.end if|
|000058e0| 04 65 6c 73 65 19 69 66 | 20 6e 6f 74 20 63 75 72 |.else.if| not cur|
|000058f0| 72 65 6e 74 6c 79 44 6f | 77 6e 20 74 68 65 6e 14 |rentlyDo|wn then.|
|00005900| 63 75 72 72 65 6e 74 6c | 79 44 6f 77 6e 20 3d 20 |currentl|yDown = |
|00005910| 74 72 75 65 28 42 74 6e | 44 65 6c 2e 67 72 61 70 |true(Btn|Del.grap|
|00005920| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00005930| 20 42 6b 73 70 44 6e 2c | 20 30 2c 20 30 06 65 6e | BkspDn,| 0, 0.en|
|00005940| 64 20 69 66 06 65 6e 64 | 20 69 66 07 45 6e 64 20 |d if.end| if.End |
|00005950| 53 75 62 07 4d 6f 75 73 | 65 55 70 03 20 03 20 07 |Sub.Mous|eUp. . .|
|00005960| 27 53 75 62 20 4d 6f 75 | 73 65 55 70 28 58 20 41 |'Sub Mou|seUp(X A|
|00005970| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00005980| 49 6e 74 65 67 65 72 29 | 15 69 66 20 63 75 72 72 |Integer)|.if curr|
|00005990| 65 6e 74 6c 79 44 6f 77 | 6e 20 74 68 65 6e 09 42 |entlyDow|n then.B|
|000059a0| 61 63 6b 73 70 61 63 65 | 28 42 74 6e 44 65 6c 2e |ackspace|(BtnDel.|
|000059b0| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|000059c0| 74 75 72 65 20 42 6b 73 | 70 55 70 2c 20 30 2c 20 |ture Bks|pUp, 0, |
|000059d0| 30 15 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |0.curren|tlyDown |
|000059e0| 3d 20 66 61 6c 73 65 06 | 65 6e 64 20 69 66 07 45 |= false.|end if.E|
|000059f0| 6e 64 20 53 75 62 00 00 | 07 00 00 a4 01 06 43 61 |nd Sub..|......Ca|
|00005a00| 6e 76 61 73 00 00 00 00 | 04 09 4d 6f 75 73 65 44 |nvas....|..MouseD|
|00005a10| 72 61 67 01 00 01 00 1f | 3b 53 75 62 20 4d 6f 75 |rag.....|;Sub Mou|
|00005a20| 73 65 44 72 61 67 28 49 | 6e 64 65 78 20 41 73 20 |seDrag(I|ndex As |
|00005a30| 49 6e 74 65 67 65 72 2c | 20 58 20 41 73 20 49 6e |Integer,| X As In|
|00005a40| 74 65 67 65 72 2c 20 59 | 20 41 73 20 49 6e 74 65 |teger, Y| As Inte|
|00005a50| 67 65 72 29 92 02 69 66 | 20 78 20 3c 20 4f 70 4b |ger)..if| x < OpK|
|00005a60| 65 79 28 49 6e 64 65 78 | 29 2e 6c 65 66 74 20 6f |ey(Index|).left o|
|00005a70| 72 20 78 20 3e 20 4f 70 | 4b 65 79 28 49 6e 64 65 |r x > Op|Key(Inde|
|00005a80| 78 29 2e 6c 65 66 74 20 | 2b 20 4f 70 4b 65 79 28 |x).left |+ OpKey(|
|00005a90| 49 6e 64 65 78 29 2e 77 | 69 64 74 68 20 6f 72 20 |Index).w|idth or |
|00005aa0| 79 20 3c 20 4f 70 4b 65 | 79 28 49 6e 64 65 78 29 |y < OpKe|y(Index)|
|00005ab0| 2e 74 6f 70 20 6f 72 20 | 79 20 3e 3d 20 4f 70 4b |.top or |y >= OpK|
|00005ac0| 65 79 28 49 6e 64 65 78 | 29 2e 74 6f 70 20 2b 20 |ey(Index|).top + |
|00005ad0| 4f 70 4b 65 79 28 49 6e | 64 65 78 29 2e 68 65 69 |OpKey(In|dex).hei|
|00005ae0| 67 68 74 20 74 68 65 6e | 15 69 66 20 63 75 72 72 |ght then|.if curr|
|00005af0| 65 6e 74 6c 79 44 6f 77 | 6e 20 74 68 65 6e 15 63 |entlyDow|n then.c|
|00005b00| 75 72 72 65 6e 74 6c 79 | 44 6f 77 6e 20 3d 20 66 |urrently|Down = f|
|00005b10| 61 6c 73 65 11 73 65 6c | 65 63 74 20 63 61 73 65 |alse.sel|ect case|
|00005b20| 20 49 6e 64 65 78 06 63 | 61 73 65 20 30 2e 4f 70 | Index.c|ase 0.Op|
|00005b30| 4b 65 79 28 49 6e 64 65 | 78 29 2e 67 72 61 70 68 |Key(Inde|x).graph|
|00005b40| 69 63 73 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |ics.Draw|Picture |
|00005b50| 50 6c 75 73 55 70 2c 20 | 30 2c 20 30 06 63 61 73 |PlusUp, |0, 0.cas|
|00005b60| 65 20 31 2f 4f 70 4b 65 | 79 28 49 6e 64 65 78 29 |e 1/OpKe|y(Index)|
|00005b70| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00005b80| 63 74 75 72 65 20 4d 69 | 6e 75 73 55 70 2c 20 30 |cture Mi|nusUp, 0|
|00005b90| 2c 20 30 06 63 61 73 65 | 20 32 2f 4f 70 4b 65 79 |, 0.case| 2/OpKey|
|00005ba0| 28 49 6e 64 65 78 29 2e | 67 72 61 70 68 69 63 73 |(Index).|graphics|
|00005bb0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 54 69 6d |.DrawPic|ture Tim|
|00005bc0| 65 73 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |esUp, 0,| 0.case |
|00005bd0| 33 2d 4f 70 4b 65 79 28 | 49 6e 64 65 78 29 2e 67 |3-OpKey(|Index).g|
|00005be0| 72 61 70 68 69 63 73 2e | 44 72 61 77 50 69 63 74 |raphics.|DrawPict|
|00005bf0| 75 72 65 20 44 69 76 55 | 70 2c 20 30 2c 20 30 0a |ure DivU|p, 0, 0.|
|00005c00| 65 6e 64 20 73 65 6c 65 | 63 74 06 65 6e 64 20 69 |end sele|ct.end i|
|00005c10| 66 04 65 6c 73 65 19 69 | 66 20 6e 6f 74 20 63 75 |f.else.i|f not cu|
|00005c20| 72 72 65 6e 74 6c 79 44 | 6f 77 6e 20 74 68 65 6e |rrentlyD|own then|
|00005c30| 14 63 75 72 72 65 6e 74 | 6c 79 44 6f 77 6e 20 3d |.current|lyDown =|
|00005c40| 20 74 72 75 65 11 73 65 | 6c 65 63 74 20 63 61 73 | true.se|lect cas|
|00005c50| 65 20 49 6e 64 65 78 06 | 63 61 73 65 20 30 2e 4f |e Index.|case 0.O|
|00005c60| 70 4b 65 79 28 49 6e 64 | 65 78 29 2e 67 72 61 70 |pKey(Ind|ex).grap|
|00005c70| 68 69 63 73 2e 44 72 61 | 77 50 69 63 74 75 72 65 |hics.Dra|wPicture|
|00005c80| 20 50 6c 75 73 44 6e 2c | 20 30 2c 20 30 06 63 61 | PlusDn,| 0, 0.ca|
|00005c90| 73 65 20 31 2f 4f 70 4b | 65 79 28 49 6e 64 65 78 |se 1/OpK|ey(Index|
|00005ca0| 29 2e 67 72 61 70 68 69 | 63 73 2e 44 72 61 77 50 |).graphi|cs.DrawP|
|00005cb0| 69 63 74 75 72 65 20 4d | 69 6e 75 73 44 6e 2c 20 |icture M|inusDn, |
|00005cc0| 30 2c 20 30 06 63 61 73 | 65 20 32 2f 4f 70 4b 65 |0, 0.cas|e 2/OpKe|
|00005cd0| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|00005ce0| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 54 69 |s.DrawPi|cture Ti|
|00005cf0| 6d 65 73 44 6e 2c 20 30 | 2c 20 30 06 63 61 73 65 |mesDn, 0|, 0.case|
|00005d00| 20 33 2d 4f 70 4b 65 79 | 28 49 6e 64 65 78 29 2e | 3-OpKey|(Index).|
|00005d10| 67 72 61 70 68 69 63 73 | 2e 44 72 61 77 50 69 63 |graphics|.DrawPic|
|00005d20| 74 75 72 65 20 44 69 76 | 44 6e 2c 20 30 2c 20 30 |ture Div|Dn, 0, 0|
|00005d30| 0a 65 6e 64 20 73 65 6c | 65 63 74 06 65 6e 64 20 |.end sel|ect.end |
|00005d40| 69 66 06 65 6e 64 20 69 | 66 07 45 6e 64 20 53 75 |if.end i|f.End Su|
|00005d50| 62 07 4d 6f 75 73 65 55 | 70 01 15 01 15 13 39 53 |b.MouseU|p.....9S|
|00005d60| 75 62 20 4d 6f 75 73 65 | 55 70 28 49 6e 64 65 78 |ub Mouse|Up(Index|
|00005d70| 20 41 73 20 49 6e 74 65 | 67 65 72 2c 20 58 20 41 | As Inte|ger, X A|
|00005d80| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00005d90| 49 6e 74 65 67 65 72 29 | 15 69 66 20 63 75 72 72 |Integer)|.if curr|
|00005da0| 65 6e 74 6c 79 44 6f 77 | 6e 20 74 68 65 6e 11 73 |entlyDow|n then.s|
|00005db0| 65 6c 65 63 74 20 63 61 | 73 65 20 49 6e 64 65 78 |elect ca|se Index|
|00005dc0| 06 63 61 73 65 20 30 13 | 4f 70 65 72 61 74 6f 72 |.case 0.|Operator|
|00005dd0| 43 6c 69 63 6b 65 64 20 | 22 2b 22 2e 4f 70 4b 65 |Clicked |"+".OpKe|
|00005de0| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|00005df0| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 50 6c |s.DrawPi|cture Pl|
|00005e00| 75 73 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |usUp, 0,| 0.case |
|00005e10| 31 13 4f 70 65 72 61 74 | 6f 72 43 6c 69 63 6b 65 |1.Operat|orClicke|
|00005e20| 64 20 22 2d 22 2f 4f 70 | 4b 65 79 28 49 6e 64 65 |d "-"/Op|Key(Inde|
|00005e30| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|00005e40| 50 69 63 74 75 72 65 20 | 4d 69 6e 75 73 55 70 2c |Picture |MinusUp,|
|00005e50| 20 30 2c 20 30 06 63 61 | 73 65 20 32 13 4f 70 65 | 0, 0.ca|se 2.Ope|
|00005e60| 72 61 74 6f 72 43 6c 69 | 63 6b 65 64 20 22 2a 22 |ratorCli|cked "*"|
|00005e70| 2f 4f 70 4b 65 79 28 49 | 6e 64 65 78 29 2e 67 72 |/OpKey(I|ndex).gr|
|00005e80| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00005e90| 72 65 20 54 69 6d 65 73 | 55 70 2c 20 30 2c 20 30 |re Times|Up, 0, 0|
|00005ea0| 06 63 61 73 65 20 33 13 | 4f 70 65 72 61 74 6f 72 |.case 3.|Operator|
|00005eb0| 43 6c 69 63 6b 65 64 20 | 22 2f 22 2d 4f 70 4b 65 |Clicked |"/"-OpKe|
|00005ec0| 79 28 49 6e 64 65 78 29 | 2e 67 72 61 70 68 69 63 |y(Index)|.graphic|
|00005ed0| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 44 69 |s.DrawPi|cture Di|
|00005ee0| 76 55 70 2c 20 30 2c 20 | 30 0a 65 6e 64 20 73 65 |vUp, 0, |0.end se|
|00005ef0| 6c 65 63 74 15 63 75 72 | 72 65 6e 74 6c 79 44 6f |lect.cur|rentlyDo|
|00005f00| 77 6e 20 3d 20 66 61 6c | 73 65 06 65 6e 64 20 69 |wn = fal|se.end i|
|00005f10| 66 07 45 6e 64 20 53 75 | 62 05 50 61 69 6e 74 15 |f.End Su|b.Paint.|
|00005f20| 11 15 11 19 2a 53 75 62 | 20 50 61 69 6e 74 28 49 |....*Sub| Paint(I|
|00005f30| 6e 64 65 78 20 41 73 20 | 49 6e 74 65 67 65 72 2c |ndex As |Integer,|
|00005f40| 20 67 20 41 73 20 47 72 | 61 70 68 69 63 73 29 15 | g As Gr|aphics).|
|00005f50| 69 66 20 63 75 72 72 65 | 6e 74 6c 79 44 6f 77 6e |if curre|ntlyDown|
|00005f60| 20 74 68 65 6e 11 73 65 | 6c 65 63 74 20 63 61 73 | then.se|lect cas|
|00005f70| 65 20 49 6e 64 65 78 06 | 63 61 73 65 20 30 1a 67 |e Index.|case 0.g|
|00005f80| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 50 6c 75 |.DrawPic|ture Plu|
|00005f90| 73 44 6e 2c 20 30 2c 20 | 30 06 63 61 73 65 20 31 |sDn, 0, |0.case 1|
|00005fa0| 1b 67 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 4d |.g.DrawP|icture M|
|00005fb0| 69 6e 75 73 44 6e 2c 20 | 30 2c 20 30 06 63 61 73 |inusDn, |0, 0.cas|
|00005fc0| 65 20 32 1b 67 2e 44 72 | 61 77 50 69 63 74 75 72 |e 2.g.Dr|awPictur|
|00005fd0| 65 20 54 69 6d 65 73 44 | 6e 2c 20 30 2c 20 30 06 |e TimesD|n, 0, 0.|
|00005fe0| 63 61 73 65 20 33 19 67 | 2e 44 72 61 77 50 69 63 |case 3.g|.DrawPic|
|00005ff0| 74 75 72 65 20 44 69 76 | 44 6e 2c 20 30 2c 20 30 |ture Div|Dn, 0, 0|
|00006000| 0a 65 6e 64 20 73 65 6c | 65 63 74 04 65 6c 73 65 |.end sel|ect.else|
|00006010| 11 73 65 6c 65 63 74 20 | 63 61 73 65 20 49 6e 64 |.select |case Ind|
|00006020| 65 78 06 63 61 73 65 20 | 30 1a 67 2e 44 72 61 77 |ex.case |0.g.Draw|
|00006030| 50 69 63 74 75 72 65 20 | 50 6c 75 73 55 70 2c 20 |Picture |PlusUp, |
|00006040| 30 2c 20 30 06 63 61 73 | 65 20 31 1b 67 2e 44 72 |0, 0.cas|e 1.g.Dr|
|00006050| 61 77 50 69 63 74 75 72 | 65 20 4d 69 6e 75 73 55 |awPictur|e MinusU|
|00006060| 70 2c 20 30 2c 20 30 06 | 63 61 73 65 20 32 1b 67 |p, 0, 0.|case 2.g|
|00006070| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 54 69 6d |.DrawPic|ture Tim|
|00006080| 65 73 55 70 2c 20 30 2c | 20 30 06 63 61 73 65 20 |esUp, 0,| 0.case |
|00006090| 33 19 67 2e 44 72 61 77 | 50 69 63 74 75 72 65 20 |3.g.Draw|Picture |
|000060a0| 44 69 76 55 70 2c 20 30 | 2c 20 30 0a 65 6e 64 20 |DivUp, 0|, 0.end |
|000060b0| 73 65 6c 65 63 74 06 65 | 6e 64 20 69 66 07 45 6e |select.e|nd if.En|
|000060c0| 64 20 53 75 62 09 4d 6f | 75 73 65 44 6f 77 6e 0a |d Sub.Mo|useDown.|
|000060d0| 25 0a 25 0e 8b 01 46 75 | 6e 63 74 69 6f 6e 20 4d |%.%...Fu|nction M|
|000060e0| 6f 75 73 65 44 6f 77 6e | 28 49 6e 64 65 78 20 41 |ouseDown|(Index A|
|000060f0| 73 20 49 6e 74 65 67 65 | 72 2c 20 58 20 41 73 20 |s Intege|r, X As |
|00006100| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|00006110| 74 65 67 65 72 29 20 41 | 73 20 42 6f 6f 6c 65 61 |teger) A|s Boolea|
|00006120| 6e 14 63 75 72 72 65 6e | 74 6c 79 44 6f 77 6e 20 |n.curren|tlyDown |
|00006130| 3d 20 74 72 75 65 11 73 | 65 6c 65 63 74 20 63 61 |= true.s|elect ca|
|00006140| 73 65 20 49 6e 64 65 78 | 06 63 61 73 65 20 30 2e |se Index|.case 0.|
|00006150| 4f 70 4b 65 79 28 49 6e | 64 65 78 29 2e 67 72 61 |OpKey(In|dex).gra|
|00006160| 70 68 69 63 73 2e 44 72 | 61 77 50 69 63 74 75 72 |phics.Dr|awPictur|
|00006170| 65 20 50 6c 75 73 44 6e | 2c 20 30 2c 20 30 06 63 |e PlusDn|, 0, 0.c|
|00006180| 61 73 65 20 31 2f 4f 70 | 4b 65 79 28 49 6e 64 65 |ase 1/Op|Key(Inde|
|00006190| 78 29 2e 67 72 61 70 68 | 69 63 73 2e 44 72 61 77 |x).graph|ics.Draw|
|000061a0| 50 69 63 74 75 72 65 20 | 4d 69 6e 75 73 44 6e 2c |Picture |MinusDn,|
|000061b0| 20 30 2c 20 30 06 63 61 | 73 65 20 32 2f 4f 70 4b | 0, 0.ca|se 2/OpK|
|000061c0| 65 79 28 49 6e 64 65 78 | 29 2e 67 72 61 70 68 69 |ey(Index|).graphi|
|000061d0| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 54 |cs.DrawP|icture T|
|000061e0| 69 6d 65 73 44 6e 2c 20 | 30 2c 20 30 06 63 61 73 |imesDn, |0, 0.cas|
|000061f0| 65 20 33 2d 4f 70 4b 65 | 79 28 49 6e 64 65 78 29 |e 3-OpKe|y(Index)|
|00006200| 2e 67 72 61 70 68 69 63 | 73 2e 44 72 61 77 50 69 |.graphic|s.DrawPi|
|00006210| 63 74 75 72 65 20 44 69 | 76 44 6e 2c 20 30 2c 20 |cture Di|vDn, 0, |
|00006220| 30 0a 65 6e 64 20 73 65 | 6c 65 63 74 0b 72 65 74 |0.end se|lect.ret|
|00006230| 75 72 6e 20 74 72 75 65 | 0c 45 6e 64 20 46 75 6e |urn true|.End Fun|
|00006240| 63 74 69 6f 6e 00 00 21 | 06 43 61 6e 76 61 73 10 |ction..!|.Canvas.|
|00006250| 04 4e 61 6d 65 0c 44 69 | 73 70 6c 61 79 42 6b 67 |.Name.Di|splayBkg|
|00006260| 72 64 05 49 6e 64 65 78 | 0b 2d 32 31 34 37 34 38 |rd.Index|.-214748|
|00006270| 33 36 34 38 0d 54 61 62 | 50 61 6e 65 6c 49 6e 64 |3648.Tab|PanelInd|
|00006280| 65 78 01 30 07 56 69 73 | 69 62 6c 65 04 54 72 75 |ex.0.Vis|ible.Tru|
|00006290| 65 04 4c 65 66 74 02 31 | 30 03 54 6f 70 02 31 35 |e.Left.1|0.Top.15|
|000062a0| 05 57 69 64 74 68 03 31 | 33 31 06 48 65 69 67 68 |.Width.1|31.Heigh|
|000062b0| 74 02 32 33 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.23.Bal|loonHelp|
|000062c0| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|000062d0| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|000062e0| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|000062f0| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00006300| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00006310| 61 6c 73 65 08 42 61 63 | 6b 64 72 6f 70 02 38 37 |alse.Bac|kdrop.87|
|00006320| 07 45 6e 61 62 6c 65 64 | 04 54 72 75 65 01 06 43 |.Enabled|.True..C|
|00006330| 61 6e 76 61 73 10 04 4e | 61 6d 65 07 54 68 65 4c |anvas..N|ame.TheL|
|00006340| 69 6e 65 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |ine.Inde|x.-21474|
|00006350| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00006360| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00006370| 75 65 04 4c 65 66 74 02 | 31 31 03 54 6f 70 03 31 |ue.Left.|11.Top.1|
|00006380| 30 39 05 57 69 64 74 68 | 03 31 33 31 06 48 65 69 |09.Width|.131.Hei|
|00006390| 67 68 74 01 34 0b 42 61 | 6c 6c 6f 6f 6e 48 65 6c |ght.4.Ba|lloonHel|
|000063a0| 70 00 13 44 69 73 61 62 | 6c 65 64 42 61 6c 6c 6f |p..Disab|ledBallo|
|000063b0| 6f 6e 48 65 6c 70 00 08 | 4c 6f 63 6b 4c 65 66 74 |onHelp..|LockLeft|
|000063c0| 05 46 61 6c 73 65 07 4c | 6f 63 6b 54 6f 70 05 46 |.False.L|ockTop.F|
|000063d0| 61 6c 73 65 09 4c 6f 63 | 6b 52 69 67 68 74 05 46 |alse.Loc|kRight.F|
|000063e0| 61 6c 73 65 0a 4c 6f 63 | 6b 42 6f 74 74 6f 6d 05 |alse.Loc|kBottom.|
|000063f0| 46 61 6c 73 65 08 42 61 | 63 6b 64 72 6f 70 02 38 |False.Ba|ckdrop.8|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
